怎么样对ClientDataSet动态增加字段?
怎么样对ClientDataSet动态增加字段?
我现在只有一个二维数组,和一个ClientDataSet,怎样把这个二维数组放到ClientDataSet中去?
我这样子做行不通:
procedure AddItIntoClientDataSet;
var
myField: TField;
myFieldType: TFieldType;
begin
ClientDataSet1.Active := false;
myField := TField.Create(nil);
myFieldType := ftString;
myField.SetFieldType(myFieldType);
myField.FieldName := 'F1';
ClientDataSet1.Fields.Add(myField);
ClientDataSet1.CreateDataSet;
ClientDataSet1.Open;
ClientDataSet1.Append;
ClientDataSet1.FieldByName('F1').Value := '1';
....
end;