Endlos Schleife

[Mikkey]

nehme ein "not" heraus, dann wird ein Schuh draus


edit:

Besser:

Delphi-Quellcode:

var fldDID, fldCID: TField;
...
    fldDID := Query.FieldByName('DID');  // DID =DocumentID
    fldCID := Query.FieldByName('CID'); // CID = CompanyID
    repeat
      DokumentID.ID := fldDID.AsInteger;  // DID =DocumentID
      DokumentID.ID := fldCID.AsInteger; //<== dies ist dasselbe Feld/Property, gewollt?????
      Result.Add(DocumentID);
      query.Next
    until query.EOF;