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;
end;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678