delphi FireDAC内存表

procedure TForm1.FormCreate(Sender: TObject);

Var

i:integer;

begin

// i:=15;

self.FDMemTable1.FieldDefs.Add('ID',ftstring,10);

self.FDMemTable1.FieldDefs.Add('ID1',ftstring,10);

self.FDMemTable1.FieldDefs.Add('ID2',ftstring,10);

self.FDMemTable1.FieldDefs.Add('ID3',ftstring,10);

self.FDMemTable1.FieldDefs.Add('ID4',ftstring,10);

Self.FDMemTable1.CreateDataSet;

for i := 1 to 15 do

begin

Self.FDMemTable1.AppendRecord([IntTOSTR(i),'ID'+IntTOSTR(i)]);

Self.StringGrid1.RowCount:=Self.StringGrid1.RowCount+1;

end;

推荐分享