unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Stan.StorageBin,
System.Rtti, FMX.Grid.Style, Data.Bind.EngExt, Fmx.Bind.DBEngExt,
Fmx.Bind.Grid, System.Bindings.Outputs, Fmx.Bind.Editors,
Data.Bind.Components, Data.Bind.Grid, Data.Bind.DBScope,
FMX.Controls.Presentation, FMX.ScrollBox, FMX.Grid, FMX.StdCtrls;
type
TForm1 = class(TForm)
FDMemTable1: TFDMemTable;
FDMemTable1naam: TStringField;
FDMemTable1leeftijd: TIntegerField;
StringGrid1: TStringGrid;
BindSourceDB1: TBindSourceDB;
BindingsList1: TBindingsList;
LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource;
Button1: TButton;
StringGrid2: TStringGrid;
FDMemTable2: TFDMemTable;
BindSourceDB2: TBindSourceDB;
LinkGridToDataSourceBindSourceDB2: TLinkGridToDataSource;
FDMemTable2naam: TStringField;
FDMemTable2leeftijd: TSmallintField;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FDMemTable2naamGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
FDMemTable2.Active := true;
FDMemTable2.CopyDataSet(fdmemtable1,[coRestart,coAppend]);
end;
procedure TForm1.FDMemTable2naamGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
text := format('%s (%d)',[FDMemTable2.Fields[0].AsString, FDMemTable2.Fields[1].AsInteger]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FDMemTable1.CreateDataSet;
FDMemTable1.Active := true;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
FDMemTable1.AppendRecord(['john',40]);
FDMemTable1.AppendRecord(['daphne',43]);
FDMemTable1.AppendRecord(['klaas',46]);
end;
end.
Bookmarks