скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Как создать вычисляемые поля во время исполнения программы



Автор: 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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook