本文整理自网络,侵删。

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;
相关阅读 >>
在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法
Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段?
Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名
更多相关阅读请进入《Delphi》频道 >>