Hallo,
bei mir klappt die Iteration durch Datenmengen nicht, obwohl es laut DelpheHilfe funktionieren soll:
Delphi-Quellcode:
[B]Iteration durch Datenmengen mit
for-Anweisungen[/B]
Delphi unterstützt die
for-
in-Syntaxkonstruktion für die Iteration durch Datenmengen. Der Compiler erkennt das folgende Iterationsmuster für Datenmengen:
for Record in Dataset
do Smth;
wobei
Record die TDataSet-
API repräsentiert.
Record kann problemlos mit Datenmenge gleichgesetzt werden.
Im folgenden Codefragment wird durch eine Datenmenge
in Delphi iteriert. Der Beispielcode zeigt, wie die Werte der Spalte "Name"
in ein Memo-Steuerelement ausgegeben werden.
var
ds: TDataSet;
//
FQuery1.SQL.Text := '
SELECT Name FROM Table1';
Memo1.Lines.Clear;
for ds
in FDQuery1
do
Memo1.Lines.Add(ds.FieldByName('
Name').AsString);
Mein Code sieht so aus:
Delphi-Quellcode:
function TDataModuleEBilanz.buildTaxVersionRecordListe: TTaxVersionRecordListe;
var
DS: TDataSet;
begin
Result:= TTaxVersionRecordListe.create;
FDQuery1.Open('select * from Taxonomie');
for DS in FDQuery1.GetRow() do
begin
showmessage(DS.FieldByName('Version').AsString)
end;
end;
Klar geht es auch anders, aber es wäre so schöner und einfacher. Und wenns in der Hilfe steht, frage ich mich, warum es bei mir nicht funktioniert.
Vielen Dank für eure Hilfe
Gruß Peter
Ps.: ich weißt nicht, ob das Thema hier überhaupt hingehört