2 unterschiedliche Bedingungen in einer while Schleife

[mkinzler]

Dann lagere doch den Code in eine Prozedur/Funktion aus, welcher du den Query als Parameter übergibst.

Delphi-Quellcode:

procedure MachwasmitQuery( qr: TZQuery);
begin
    //Sehr viel Code
    qr.FieldByName( ...
end;
...
while not ZQuery1.Eof do

    Begin
      MachwasmitQuery( ZQuery1);                 
    end
else

while not ZQuery5.Eof do

    Begin
      MachwasmitQuery( ZQuery5);                 
    end;