怎么在程序里动态给TTABLE，或Tclientdataset加入字段！

Question

求教！

Answer 1

with Table1 do begin
  Active := False;  
  DatabaseName := 'DBDEMOS';
  TableType := ttParadox;
  TableName := 'CustInfo';
  if not Table1.Exists then begin
    with FieldDefs do begin
      Clear;
      with AddFieldDef do begin
        Name := 'Field1';
        DataType := ftInteger;
        Required := True;
      end;
     //...

Answer 2

var
   field :Tfield;
begin
field:=Table1.FieldDefs.AddfieldDef;
field.name:='field1'
field.DataType:=ftString;
field.Size:=255;
end

Answer 3

var
   tl:tfield;
.....
t1:=tstringfield.Create(self);
  with t1 do
    begin
      FieldName := 'xz_back';
      FieldKind:= fkLookup;
      DataSet := data.ads_com;
      Name := Dataset.Name + FieldName;
      KeyFields:= 'xz';
      LookUpDataset:=data.ads_one ;
      LookUpKeyFields:= 'bm';
      LookUpResultField:= 'tname';
      xz.DataField:= FieldName;
      data.ads_com.FieldDefs.Add(Name, ftString, 10, false);
      xz.ListSource :=data.ds_one;
   end;