Функции редактора полей во время выполнения программы

Советы » Записи, индексы, поля, закладки » Функции редактора полей во время выполнения программы

Возможен ли вызов функций редактора полей (Fields Editor) во время выполнения программы?

Да. Если вы определили поля во время разработки приложения, то во время выполнения можно менять их свойства (например, Size).

Например, следующий код изменяет каждый размер поля TField.Size так, чтобы соответствовать фактическому размеру поля открываемого набора данных:

procedure

SetupFieldsAndOpenDataset(DataSet: TDataSet); var

FieldNum, DefNum: Integer; begin

with

DataSet do

begin

if

Active then

Close; FieldDefs.Update; {набор данных должен быть закрыт} {ищем каждое предопределенное TField в DataSet.FieldDefs:} for

FieldNum := FieldCount - 1 downto

0 do

with

Fields[FieldNum] do

begin

DefNum := FieldDefs.IndexOf(FieldName); if

DefNum < 0 then

raise

Exception.CreateFmt( 'Поле "%s" не найдено в наборе данных "%s"', [FieldName, Dataset.Name]); {устанавливаем свойство size:} Size := FieldDefs[DefNum].Size; end

; Open; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com