PDA

View Full Version : ایجاد calcfield در زمان اجرا



shayan_delphi
چهارشنبه 25 مرداد 1385, 06:51 صبح
سلام
چطور می توانم فیلد از نوع calcfield را با کد ایجاد کنم و رویداد OnCalcField در زمان اجرا رخ بدهد؟
در زمان طراحی لیست فیلدها مشخص نیست که آنها را AddField کنم.

mzjahromi
چهارشنبه 25 مرداد 1385, 07:06 صبح
اضافه کردن CalcField رو با کد زیر میتونی انجام بدی


with TStringField.Create(Dataset1) do
begin
FieldName := FieldName1;
FieldKind := fkCalculated;
DataSet := DataSet1;
Name := DataSet.Name + FieldName;
DataSet.FieldDefs.Add(FieldName, FieldType1, FieldSize1, False);
end;