Probleme mit FOR-Schleife

[timmy19]

Hallo,

ich komm gleich zu Sache:

Ich habe ein Problem mit einer FOR-Schleife. Ich möchte mit einer FOR-Schleife die Wurzel/das Quadrat aus 1 bis 25 ausrechnen. Das Ganze möchte ich dann in einer ListBox ausgeben.

Nun, mein Code sieht bisher so aus:

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) ;

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

Wenn ich auf "Start" drücke kommt eine Fehlermeldung, welche lautet:

Zitat:

Unit.pas(62): Anweisung erwartet, aber Dateiende gefunden

Ich weiß nun nicht, was ich falsch gemacht habe.

Und ich hab noch ne zweite Frage:
Wie kann ich das Ganze in ner ListBox ausgeben? Hab es mit dem Obenstehenden Code versucht, dann kommt aber beim Quadrat die Fehlermeldung

Zitat:

Anweisung für FOR-Schleifenvariabe gefunden

Das kommt aber beim ersten nicht.

Ich hoffe ihr könnt mirin beiden Fragen helfen!

Gruß,
timmy

PS: 1. Zeile 62 ist längst hinter den letzten "End".
2. Bin Delphi-Neuling

[Luckie]

Bitte stell nur eine Frage pro Beitrag, sonst geht hier alles durcheinander.

Zu deiner ersten Frage. Da fehlt wohl irgendwo ein Semikolon oder ein End.

[DeddyH]

Hallo und Willkommen in der DP ,

wenn Du richtig einrückst, wirst Du feststellen, dass 2 "end"s fehlen und ein Semikolon zuviel ist.

[timmy19]

Zitat von DeddyH:

Hallo und Willkommen in der DP ,

wenn Du richtig einrückst, wirst Du feststellen, dass 2 "end"s fehlen und ein Semikolon zuviel ist.

Danke für die Schnellen Antworten.

Das Semikolon und das 2.End finde ich aber nicht. Wo müssen die hin?

[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...