本文整理自网络,侵删。

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 tdirectory.getdirectories
android实例-拍摄和分享照片、分享文本(xe8+小米2)
Delphi getwebbrowserhtml 获取网页源代码
更多相关阅读请进入《Delphi》频道 >>