本文整理自网络,侵删。

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实现域名转ip地址---用nmhttp控件和winsock
更多相关阅读请进入《Delphi》频道 >>