谁能在代码中添加记录集中的部分字段和增加新的用来计算的字段(200分单独给)

Question

var OneField: TField;
begin
  OneField := TField.Create(AOwner);
  OneField.FieldName := ...
  OneField.FieldKind := ...
  ...
  OneField.DataSet := YourDataSet;
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

我的例子:
双击query控件,然后单击右键，选择new field,在name中键入新的字段的名称sexname，在type,size里分别添入字段的类型和长度,field type选择calculated,OK,这样就添加了新的字段sexname,之后如果query查询出的sex字段值是true,则显示男，如是false ,则显示女。如果你是添加的话类似!
procedure Tbrowses.Query1CalcFields(DataSet: TDataSet);
begin
  if query1.fieldbyname('sex').asboolean=true then
    query1.fieldbyname('sexname').asstring:='男'
  else
    query1.fieldbyname('sexname').asstring:='女';
end;

Answer 2

lxpubaa:ado:is myDataset include(field1:'a';field2:'b')我的记录集中包含两个字段a,bvar OneField: TField;
begin
  if ado then ado.active:=False;
  OneField := TField.Create(ado);
  OneField.FieldName := 'test'是我自己新增的用来计算的字段
  OneField.FieldKind :=fkCalculated;
  OneField.DataSet:=ado;
  showmessage(ado.FieldByName('test').FieldName);//ok
  ado.Active:=True;//false;出错   help!help!
end;