Schleifen wiederholen

[ConnorMcLeod]

Etwas in der Art?

Delphi-Quellcode:

procedure Machwas(AWieoft: Integer);
var
  LiLooper: Integer;
begin
  for LiLooper := 1 to AWieoft do begin
    //
  end;
end;