vielleicht hilfts weiter..
Delphi-Quellcode:
adoquery1.DisableControls;
adoquery1.First; {Zeiger auf 1ten Datensatz stellen}
position:=0;
while not adoquery1.Eof do
begin
position:=position+1; // nur zum test
memo1.lines.add(inttostr(position)); // nur zum test
array1[position]:= adoquery1.FieldByName('Name').AsString; // nur zum test
adoquery1.Next; {Satzzeiger eins weiter setzen}
end;
adoquery1.EnableControls;