delphi 新版内存表 FDMemTable

https://www.yii666.com/article/173784.html

procedure TForm6.Button1Click(Sender: TObject);
var i:Integer ;
begin

for I := 0 to FDMemTable1.SourceView.Rows.Count - 1 do
begin
 Caption := FDMemTable1.SourceView.Rows.ItemsI[i].GetData(1);
end;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
 FDMemTable1.Close();
FDMemTable1.FieldDefs.Clear();
FDMemTable1.FieldDefs.Add('ID', ftInteger, 0, True);
FDMemTable1.FieldDefs.Add('Name', ftString, 20, false);
FDMemTable1.CreateDataSet();
FDMemTable1.AppendRecord([101, 'aaa']);
FDMemTable1.AppendRecord([102, 'bbb']);
FDMemTable1.AppendRecord([103, 'ccc']);
end;