Советы по Delphi




Создание/удаление полей во время выполнения программы - часть 2


/p>

Вышеприведенный пример создает новый TStringField с именем Query1CO_NAME.

Для удаления существующего потомка TField достаточно вызова метода Free данного компонента. В примере, приведенном ниже, метод TForm FindComponent используется для получения указателя на компонент TStringField с именем Query1CO_NAME. Возвращаемая функцией FindComponent величина в случае успешного завершения будет иметь тип TComponent или nil в противном случае. Возвращаемое значение может использоваться для того, чтобы определить, действительно ли существует компонент до того, как будет применен метод Free.

procedure TForm1.Button1Click(Sender: TObject);
var
TC: TComponent;begin
TC := FindComponent('Query1CO_NAME');if not (TC = nil) then beginQuery1.Close;
TC.Free;Query1.Open;end;end;

Как и при создании TField, набор данных, связанный с потомком TField и активный в настоящий момент, перед вызовом данного метода должен быть закрыт и впоследствии вновь активирован. [000532]




Содержание  Назад  Вперед