Am besten so :
Delphi-Quellcode:
with D_DataModule.DataSet do
D_DataModule.DataSet.Edit;
while not D_DataModule.DataSet.Eof do begin
D_DataModule.DataSet.FieldByName('FAID').AsInteger;
reg.customer[reg.Ac_ID].ID; ...
end;
D_DataModule.DataSet.Post;
...
D_DataModule.DataSet.Close;
[/quote]
P.S.: das Value würde ich mir abgewöhnen. Habe z.B. jetzt nur geraten, ob es überhaupt um integer geht.