Hey, mach dir nix draus ... muß ja nicht heißen, daß es mit Repeat überhaupt nicht geht.
http://fnse.de/S05/1L9.gif
Delphi-Quellcode:
var anfang,ende,step:real;
begin
anfang:=17.5;
step:=0.75;
ende:=42;
if anfang <= ende then
repeat
Memo1.Lines.Add(floatToStr(anfang));
anfang:=anfang+step;
until anfang > ende;
und in Bezug auf das etwas blöde Rundungsverhalten der Fließkommatypen:
Delphi-Quellcode:
var anfang, ende, step, x:real;
i: Integer;
begin
anfang := 17.5;
ende := 42;
step := 0.75;
i := 0;
x := anfang;
while x <= ende do
begin
Memo1.Lines.Add(floatToStr(x));
Inc(i);
x := anfang + step * i;
end;