Früh am Morgen und das Objekt wird nicht korrekt übergeben..

[Zyro]

So..hab mal wieder nen Problem.
Und zwar will ich das machen:

Delphi-Quellcode:

procedure partdetect(id:integer; detect: TQuery);
   var t2: integer;
   var t: integer;
   var Feld: Array [0..7] of String;
   begin
   detect.SQL.Clear;
     detect.SQL.Add('Select * from querys where id='+inttostr(id)+'');
     detect.Open;
     while not detect.Eof do begin
       t2:=0;
        for t:= 0 to 7 do begin
          Feld[t]:=detect.FieldByName(''+Part[t]+'').AsString;
          if(Feld[t]<>'')THEN Statement[t2]:=SQL[t];t2:=t2+1;
        end;
    end;

So...das Qurey mit dem Namen detect hab ich ganz zu beginn von unit 1 deklariert. Und auch schön mit der Datenbank verknüpft. Nur wenn ich die Prozedur aufrufe mit:

Delphi-Quellcode:

partdetect(1, detect);

Verfängt sich die Prozedur in eine Endlos Schleife...weiss jemand, woran das liegen kann? ich glaube ja, dass das Objekt nicht korrekt übergeben wird!

[choose]

Guten Morgen, Zyro ;)

Du hast eine Schleife mithilfe einer Abbruchbedingung formuliert, doch wodurch soll sie herstellt werden?

Delphi-Quellcode:

while not Detect.Eof do 
begin
  //Logik, aber nichts, das .Eof verändert...
end;

[sakura]

Zitat:

Zitat von choose

Du hast eine Schleife mithilfe einer Abbruchbedingung formuliert, doch wodurch soll sie herstellt werden?

Anders getippelt... wie wäre es mit einem MoveNext... :?:

...:cat:...