Probleme mit FOR-Schleife

[timmy19]

Zitat:

Zitat von DeddyH (Beitrag 1137000)

Wie sind m und n denn deklariert? Außerdem solltest Du diese besser vor Schleifenbeginn zuweisen.

Das ist mein gesamter Text:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var m,n, Wamn: extended;
  i: Integer;
 Begin
 m:= StrToInt(Edit1.Text );
 n:= StrToInt(Edit2.Text );
  For i := n to m do
  begin
    Wamn := sqrt(i);
    ListBox1.Items.Add(IntToStr(i) +':' + FloatToStr(Wamn));

  end;
  end;
  end.

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var 
  m,n : integer; // <- als Integer deklarieren
  Wamn: extended;
  i: Integer;
Begin

  // ERST die Werte für m und n holen

  m:= StrToInt(Edit1.Text ); 
  n:= StrToInt(Edit2.Text );

  // und DANN können wir durch die Schleife laufen 

  For i := n to m do
  begin
    Wamn := sqrt(i);
    ListBox1.Items.Add(IntToStr(i) +':' + FloatToStr(Wamn));
  end;
end;

end.

[timmy19]

Zitat:

Zitat von Sir Rufo (Beitrag 1137003)

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var 
  m,n : integer; // <- als Integer deklarieren
  Wamn: extended;
  i: Integer;
Begin

  // ERST die Werte für m und n holen

  m:= StrToInt(Edit1.Text ); 
  n:= StrToInt(Edit2.Text );

  // und DANN können wir durch die Schleife laufen 

  For i := n to m do
  begin
    Wamn := sqrt(i);
    ListBox1.Items.Add(IntToStr(i) +':' + FloatToStr(Wamn));
  end;
end;

end.

Danke- funzt! :)