Einzelnen Beitrag anzeigen

ngott2

Registriert seit: 26. Aug 2013
81 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Endlos Schleife

  Alt 18. Dez 2013, 14:03
Hallo, liebe Community.
Ich habe eine Schleife gebaut die aus irgend einem Grund eine Endlosschleife ist.
Die Bedingung bei einer While Schleife geht. Aber er muss leider mindestens einmal Durchlaufen.
Habe ich irgendwo einen Denkfehler.


Code:
repeat
    DokumentID.ID := Query.FieldByName('DID').AsInteger;  // DID =DocumentID
    DokumentID.ID := Query.FieldByName('CID').AsInteger; // CID = CompanyID
    Result.Add(DocumentID);
    query.Next
  until (not query.Eof);
Hier ist noch meine Sql Anweisung
Code:
Query.SQL.Text := 'Select ID As DID ,CompanyID As CID from [Document] Where Status = 1 and LoadForEmployee = false Order By CompanyID';
Danke im Voraus.
  Mit Zitat antworten Zitat