Советы по 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;