Советы по Delphi. Версия 1.4.3 от 1.1.2001

После регистрации классов, вы можете реплицировать их следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var
 Ref: TComponentClass;
 New: TComponent;
 Stream: TMemoryStream;
begin
 Ref := TComponentClass(Label1.ClassType);
 New := Ref.Create(Self);
 Stream := TMemoryStream.Create;
 try
Stream.WriteComponent(Label1);
 Stream.Position := 0;
 Stream.ReadComponent(New);
 finally
Stream.Free;
 end;
end;

– Rick Rogers 

Получение ссылки на класс из объекта II

Мне необходимо получить ссылку на класс из объекта… 

TObject.ClassType

var
 ClassRef: TComponentClass;
 NewComp: TComponent;
begin
 TClass(ClassRef) := Sender.ClassType;
 NewComp := ClassRef.Create(Self);
 …

– Pat Ritchey 

Работа с комментариями в большом куске кода

Delphi 1

В Паскале существует 2 способа обозначить комментарии – {} и (* *). Вы можете вставлять один комментарий в другой (осуществлять вложенность). Следовательно, вставляя (* в начале вашего блока, и *) в конце, вы все еще можете работать с вложенными комментариями типа { }.

Базы данных

Калькуляция

Код определения возраста

Delphi 1

Вызовите диалог редактирования полей (Fields Editor), дважды щелкнув на компоненте TTable или TQuery, расположенном на вашей форме (или выбрав в контекстном меню пункт Fields Editor). Добавьте все поля, с которыми вы хотите работать в форме (даже если вы хотите, чтобы они были невидимы, но вам необходим к ним доступ – для таких полей установите свойство visible в false). Затем щелкните на «Define…» (определить) для добавления вычисляемого поля. Введите имя вычисляемого поля, отличающееся от имен других полей таблицы, выберите тип (вероятно, StringField) и задайте длину (20 будет в самый раз). Убедитесь в том, что напротив поля 'calculated' стоит галочка. Затем создайте для вашего объекта TTable или TQuery обработчик события 'OnCalcFields'. В этом обработчике вы берете значения реальных полей таблицы, делаете вычисления, и помещаете результаты в объект вычисляемого поля, который вы только что создали. После этого значение выводится в TDBGrid, или в элементе управления TDBText, если вы решили использовать форму вместо табличной сетки.

Наша функция должна достичь цели, обрабатывая значения лет и месяцев. Поскольку не все месяцы имеют одно и то же количество дней, я просто брал среднее число, поэтому результат может быть не очень точен, но большинство людей это удовлетворяет:

function AgeStr(aDate: TDateTime): string;
var
 DaysOld: Double;
 Years, Months: Integer;
begin
 DaysOld:= Date – aDate;
 Years:= Trunc(DaysOld / 365.25);
 DaysOld:= DaysOld – (365.25 * Years);
 Months:= Trunc(DaysOld / 30.41);
Result:= Format('%d лет, %d месяцев',[Years, Months]);
end;

В моем случае метод OnCalcFields выглядит так:

procedure TEntryForm.TableNameOrderCalcFields(DataSet: TDataset);
begin
 TableNameOrderAge.AsString := AgeStr(TableNameOrderDateOfBirth.AsDateTime);
end;

Как пересчитать все вычисляемые поля (Calculated fields) без переоткрытия TDataSet?

Одной строкой

Nomadic отвечает:

Resync([rmExact, rmCenter]);

Как создать вычисляемые поля во время исполнения программы (Calculated fields at RunTime)?

Nomadic отвечает:

Смотрите книгу "Developing Custom Delphi Components" от Рэя Конопки.

Здесь немного исправленный пример из этой книги

function TMyClass.CreateCalcField(const AFieldName: string; AFieldClass: TFieldClass; ASize: Word): TField;
begin
 Result := FDataSet.FindField( AFieldName ); // Field may already exists!
 if Result<>nil then Exit;
 if AFieldClass = nil then
 begin
 DBErrorFmt( SUnknownFieldType, [AFieldName] );
 end;
 Result := FieldClass.Create( Owner );
 with Result do
 try
 FieldName := AFieldName;
 if (Result is TStringField) or (Result is TBCDField) or (Result is TBlobField) or (Result is TBytesField) or (Result is TVarBytesField) then
 begin
 Size := ASize;
 end;
 Calculated := True;
 DataSet := FDataset;
 Name := FDataSet.Name + AFieldName;
 except
 Free; // We must release allocated memory on error!
 raise;
 end;
end;

Доступ

Хитрости многопользовательского доступа к БД

Вот некоторые хитрости, могущие помочь в разработке баз многопользовательского доступа: