Probleme mit FOR-Schleife

[Bummi]

Zeile 62 ist kaum hilfreich als Information, das Semikolon ist zuviel nach dem do

so, sollte es aussehen

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  WaI: extended;
  Qva, a: Integer;
  i: Integer;
Begin
  For i := 1 to 25 do
  begin
    WaI := sqrt(i);
    i := Integer(ListBox1.Items);
  end;

  For a := 1 to 25 do
  Begin
    Qva := sqr(i);
    a := Integer(ListBox2.Items);
  end;
End;

gegf. fehlt bei Dir am Dateiende noch

end.

[timmy19]

@Bummi: Danke!

Nun hab ich aber noch ne Frage:

Er gibt mir immer noch diese Fehlermeldung:

Zitat:

Anweisung für FOR-Schleifenvariable 'i'
bzw. Anweisung für FOR-Schleifenvariable 'a'

Bezieht sich auf diese beiden Codezeilen:

Zitat:

i := Integer(ListBox1.Items);
bzw. a := Integer(ListBox2.Items);

Wie kann man das umgehen?

[Bummi]

wenn ich mal rate was Du vorhaben könntest

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  WaI: extended;
  Qva, a: Integer;
  i: Integer;
Begin
  For i := 1 to 25 do
  begin
    WaI := sqrt(i);
    ListBox1.Items.Add(FloatToStr(WaI));
    // oder
    //ListBox1.Items.Add(FormatFloat('0.000',WaI));
  end;

  For a := 1 to 25 do
  Begin
    Qva := sqr(a);
    ListBox2.Items.Add(FloatToStr(Qva));
  end;
End;

http://crashkurs.christian-stelzmann.de/

[timmy19]

Ja, du hast Recht.

Trotzdem gibts wieder ne neue Fehlermeldung. Diesmal sieht sie so aus:

Zitat:

Deklaration erwartet, aber Dateiende gefunden

Was ist da jetzt wieder falsch?

PS: Sorry, wenn ich nerv, aber ich weiß echt nicht weiter...

[Bummi]

am Ende der Datei muss immer

end. stehen ....

[timmy19]

Zitat von Bummi:

am Ende der Datei muss immer

end. stehen ....

Mist bin ich blöd!

Danke, es funzt!

Trotzdem hätt ich noch eine Frage:

Habe jetzt bei beiden geschrieben:

ListBox2.Items.Add(IntToStr(i)+ ':' + FloatToStr(Qva)); Mit diesem Befehl soll er die jeweilige Zahl (also 1- 25) davor setzten. Soweit geht das auch. Leider ist steht bei Quadrat IMMER 26, anstatt die jeweilige Zahl. Bei der Wurzel geht es komischer Weise einwandfrei...

[DeddyH]

Und bei IntToStr statt FloatToStr?