FireDAC: Zwei TDataSets aus einer Query

[Der schöne Günther]

Da es die FireDAC-Dokumentation in XE5 wohl noch nicht so ganz in die lokale Hilfe geschafft hatte, hat es etwas länger gedauert aber im Endeffekt ist es ganz einfach:

http://docwiki.embarcadero.com/Libra...FDDataSet.Data

Delphi-Quellcode:

FDQuery1.SQL.Text := 'select * from orders; select * from customers';
 
FDQuery1.Open;
FDQuery1.FetchAll;
// assign orders records to FDMemTable1
FDMemTable1.Data := FDQuery1.Data;
 
FDQuery1.NextRecordSet;
FDQuery1.FetchAll;
// assign customers records to FDMemTable2
FDMemTable2.Data := FDQuery1.Data;

Ist ein gutes Beispiel, wie man die Ergebnismenge einer Query in eine TFDMemTable kopiert. Dauert insgesamt zwar etwas länger als zwei separate Firedac-Queries aber damit kann ich leben