Freeware - Hilfsprogramm "Schleifentest"

Thema durchsuchen

Ansicht

Themen-Optionen

Freeware - Hilfsprogramm "Schleifentest"

Ein Thema von ccc2 · begonnen am 7. Mai 2010 · letzter Beitrag vom 8. Mai 2010

Vorheriger Beitrag

Nächster Beitrag

Wolfgang Mix

Registriert seit: 13. Mai 2009
Ort: Lübeck
1.222 Beiträge

Delphi 2005 Personal

#21

Re: Freeware - Hilfsprogramm "Schleifentest"

7. Mai 2010, 16:56

Was haltet ihr davon?

zusammenfalten · markieren

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;