schleifen durchläufe aus editfeld !?

[v0rBiZ]

bezwecken so eigentlich nichts,
hab bissel probiert und rumgespielt und das mit dem auslesen aus dem editfeld nicht geschaft.

nun funktioniert das, aber die anzahl der durchläufe stimmt nicht mit dem überein was im edit steht.

[DeddyH]

Ganz einfacher Test:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to StrToInt(Edit1.Text) do
    ShowMessage(IntToStr(i));
end;

Stimmt das?

[v0rBiZ]

Jup
5 im edit = 5x bestätigen.

[DeddyH]

Siehste, dann stimmt in Deinem Code wohl etwas nicht ;)