Einzelnen Beitrag anzeigen

timmy19

Registriert seit: 18. Nov 2011
28 Beiträge
 
#23

AW: Probleme mit FOR-Schleife

  Alt 19. Nov 2011, 14:33
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!
  Mit Zitat antworten Zitat