ADO Daten übergabe

[jensw_2000]

Dann kannst du das eventuell so machen (Kanns grade nicht testen ...)

myArray = mehrdimensionales DynArray, Eine TObjectlist oder was du gern verwendest

Delphi-Quellcode:

  While not ADOQuery1.eof do 
  begin 
    for i:=0 to AdoQuery1.fields.count.1 do
    begin
       MyArrAy[AdoQuery1.recno-1,i]  := AdoQuery1.fields[i].asstring;
    end;
    ADOQuery1.next; 
  end;