چگونه با نوشتن متد فيلد محاسباتي ايجاد كنم

[farhadkarimi]

سلام
چگونه با نوشتن متد فيلد محاسباتي ايجاد كنم
مثل زير
with FieldDefs.AddFieldDef do begin
Name := 'standard';
DataType := ftString;
Size := 200;
Required := False;
end;

[کامروا]

درود

with TStringField.Create(Self) do
begin
Name := 'ClientDataSet1Name';
FieldKind := fkCalculated;
FieldName := 'Name';
Size := 72;
DataSet := ClientDataSet1;
end;