Schleifen in Delphi

[choose]

Zitat von Sharky:

Wenn er alle Schleifen können soll gehört diese dazu.

Nun wird's aber spitz, find ich... Also, meine OH hat unter "Schleife" (Huhu, Smokey) nichts von Labels offenbart, ich würde Jumps aber auch sonst nicht zu den Schleifenkonstrukten einer Hochsprache zählen. Schließlich musst Du dir die Iterationslogik ja noch "basteln"...

Anderfalls könnte man man sonst was (zB eine Endrekursion) als Schleife gelten lassen:

Delphi-Quellcode:

  procedure Loop(const i: Integer);
  begin
    Label1.Caption := IntToStr(i);
    if i<10 then Loop(i+1);
  end;

begin
  Loop(1);
end;

oder wie wär es mit einer Komposition aus Command-Objekten?

EDIT: Rechtschreibung