
Ich habe eine Schleife. Die soll das Dataset durchlaufen. Das geht so halb.
irgendwie läuft die Schleife nur einmal durch
und ich frage mich grade was ich übersehen hab?
Code: Alles auswählen
TData = class(TDataModule)
DS : TDataSource;
Q : TZQuery;
var
Data: TData;
Funktion:
Data.Q.SQL.Text := 'SELECT * FROM Abrechnung';
Data.Q.Active := True;
Data.DS.DataSet.First;
while not Data.DS.DataSet.EOF do begin
MIMEText.Add('Füge die Zeile hinzu ' + Data.DS.DataSet.FieldByName('Name').AsString);
Data.DS.DataSet.Next;
end;
VG Igor