我如何用程序取到fields eidt中的数据，例如：table1.fields.addall等

Question

在程序里你可以直接访问呀
例如table1.fields[0].displaylabel := 'taxi';

Answer 1

你在fields edit里面操作的时候，也是通过object inspector去设置那些参数值的。这证明了程序当中也可以使用代码去控制。象楼上那位写的就可以。或许也可以使用table1.fieldbyname('xx').displaylabel := 'taxi';  

Answer 2

//iFieldKind  1:fkData;2:fkCalculated;3:fkLookup;4:fkInternalCalc;5:fkAggregate;
procedure TfrmPrint_Allocate.AddBCDExtraField(sExtraField :string; DataSet :TADODataSet;iFieldKind :integer);
var
   T :TBCDField;
begin
    ClearExtraField(DataSet.Name+sExtraField,DataSet);
    DataSet.Close;
    T:= TBCDField.Create(Self);
    T.FieldName:= sExtraField;
    T.Name:= DataSet.Name + T.FieldName;
    T.Index:= DataSet.FieldCount ;
    T.DataSet:= DataSet;    case iFieldKind of
       1:
         begin
             T.FieldKind := fkData;
         end;
       2:
         begin
             T.FieldKind := fkCalculated;
         end;
       3:
         begin
             T.FieldKind := fkLookup;
         end;
       4:
         begin
             T.FieldKind := fkInternalCalc;
         end;
       5:
         begin
             T.FieldKind := fkAggregate;
         end;
    end;
//    T.FieldKind:= fkCalculated;
    DataSet.FieldDefs.Update;end;
试试这个，这是添加小数字段的函数，iFieldKind=1 时没问题，你可以试试。