array aus query füllen

[mkinzler]

Delphi-Quellcode:

while not <Query>.Eof do
begin
    <Array>[i] := <Query>.FieldByName('<Feldname>').as<Typ>;
    inc(i);
    <Query>.Next;
end;