If Bedingung

[LoL]

hi

Normalerweise würde ich es so machen:

Delphi-Quellcode:

if bedingung then
  1.schleife
  begin
    abarbeitung
  end;
else
  2.schleife
  begin
    abarbeitung
  end;

ich möchte aber das ich die abarbeitung in beiden fällen gemacht wird nur mit unterschiedlichen schleifen etwa:
1. Schleife := 1 to 10
2. Schleife := 3 to 8

gruß christoph