delphi在TclientDataSet中動態創建表

delphi在TclientDataSet中動態創建表

procedure TForm1.Button1Click(Sender: TObject);
var
  table:TclientDataSet;
  i:integer;
begin
   table:=TClientDataset.Create(Application);
   // 添加字段定?
   table.FieldDefs.Add('ID',ftInteger,0,False);

  table.FieldDefs.Add('partno',ftString,10,False);

  table.FieldDefs.Add('orderno',ftString,0,False);

   table.CreateDataset;

   table.Open;

   for i:=1 to 5 do

  begin

   table.Append;

   table.FieldByName('ID').AsInteger:=i;

   table.FieldByName('partno').AsString:='sdfa';

   table.FieldByName('orderno').AsString:='dfa';

   table.Post;

 end;
  showmessage(table.FieldByName('id').AsString);

end;