关于动态创建计算字段落！200分进者有分

Question

现不用加入固定字，怎样动态创建一个计算字段，并且在计算事件里确发?

Answer 1

with tclientdataset1.FieldDefs do
  begin
    Add('field1', ftInteger, 0, True);
  end;
  for i:= 1 to tclientdataset1.FieldDefs.Count - 1 do
  begin
    if tclientdataset1.FieldDefs[i].Name = 'tclientdataset1field1' then
     tclientdataset1.FieldDefs[i].fieldkind := fkCalculated;
  end;
  tclientdataset1CalcFields(nil)

Answer 2

同意 Wally_wu(韦利) 

Answer 3

with tclientdataset1.FieldDefs do
  begin
    Add('field1', ftInteger, 0, True);
  end;
  for i:= 1 to tclientdataset1.FieldDefs.Count - 1 do
  begin
    if tclientdataset1.FieldDefs[i].Name = 'tclientdataset1field1' then
     tclientdataset1.FieldDefs[i].fieldkind := fkCalculated;
  end;
  tclientdataset1CalcFields(nil)