2 unterschiedliche Bedingungen in einer while Schleife

[Treffnix]

Warum nicht so:

Delphi-Quellcode:

Procedure Machganzviel( qry: DeinQryTyp );
Begin
  while not qry.eof do Begin
    //ganz viel Code
  End;
End;

Begin
  Machganzviel( qry );
End;

Entweder als Subprozedur, wenn du auf lokale Variablen deiner Funktion zugreifen musst oder als "eigenständige"

Du könntest auch eine 3. prozedurinterne qryvariable hinzufügen, der du dann jeweils das benötigte qry zuweist und mit der du dann arbeitest.