Freeware - Hilfsprogramm "Schleifentest"

[Wolfgang Mix]

Was haltet ihr davon?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var anfang,ende,step:real;
begin
  anfang:=17.5;
  step:=0.75;
  ende:=42;
  repeat
    Memo1.Lines.Add(floatToStr(anfang));
    anfang:=anfang+step;
  until anfang>=ende;

end;