本文整理自网络,侵删。

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;
相关阅读 >>
Delphi xe2获取文件的 md5、crc、sha-1、sha-256、sha-512
Delphi getprocessidentity 获取当前登录状态的管理员
Delphi trestclient + trestrequest + trestresponse
更多相关阅读请进入《Delphi》频道 >>