Probleme mit FOR-Schleife

[timmy19]

Zitat von DeddyH:

Ach, Du meinst vor dem Doppelpunkt? Dann ist das klar, da die Schleifenvariable a ist, Du aber i abfragst.

danke.

So, ich häufe euch heute mit fragen.

Wie kann man das selbe von Oben mit selbst eingegebenen Zahlen machen?

Meine Idee ist das hier:

Delphi-Quellcode:

 procedure TForm1.Button4Click(Sender: TObject);
var Wamn: extended;
  i: Integer;
 Begin

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

  end;

Jetzt sagt er mir aber:

Zitat:

Inkompatible Typen: 'Integer' und 'TCaption'

Wie kann ich das lösen?

[DeddyH]

Mit StrToInt (oder besser TryStrToInt oder IntToStrDef). Allerdings solltest Du Dir wirklich einmal den Crashkurs reinziehen, sonst wird das auf Dauer nix.

[Bummi]

Der Link zum Crashkurs ist in #7

[timmy19]

Hallo,

ich bin's nochmal.Kein Angst ich habe mir den Crashkurs (zumindest bisschen)durchgelesen.
Trotzdem komme ich mit den Fehlermeldung oft nicht klar.

Deswegen nochmal eine Frage zu dem Programm von gestern.

Ich möchte die Wurzel von n bis m ziehen

Der Code sieht bisher so aus:

Delphi-Quellcode:

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

  end;
  end;
  end.

Es kommt bei der Zeile "For i:= n to m do" die Fehlermedung hier:

Zitat:

Inkompatible Typen: 'Integer' und 'Extended'

Was ist hier mein Fehler? Ich zerbrech mir seit gestern Abend den Kopf darüber...

[DeddyH]

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

[timmy19]

Zitat von DeddyH:

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.