Problem mit if then schleife

[PetBurki]

Ich hab folgendes geschrieben un da meldet er immer den fehler end expected but else found , könnt ihr mir halfen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var schuss, leben :integer;
begin
randomize;
edit4.Text:='';
schuss:=random(10);
leben:=StrToInt(edit2.Text)-schuss;
edit4.Text:=IntToStr(schuss);
edit2.Text:=IntToStr(leben);

        if StrToInt(edit2.Text)<=0  then
        label7.visible:=true;
        button1.Enabled:=false;
        button2.Enabled:=false
        else
        label7.Visible:=false;
        button1.Enabled:=false;
        button2.Enabled:=true;

vielen dank im vorraus!

[edit=SirThornberry]Delphi-Tags gesetzt. Nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]

[uwewo]

Nächstesmal mit Delphi TAGS

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var schuss, leben :integer; 
begin 
randomize; 
edit4.Text:=''; 
schuss:=random(10); 
leben:=StrToInt(edit2.Text)-schuss; 
edit4.Text:=IntToStr(schuss); 
edit2.Text:=IntToStr(leben); 

if StrToInt(edit2.Text)<=0 then 
begin
label7.visible:=true; 
button1.Enabled:=false; 
button2.Enabled:=false 
end
else
begin
label7.Visible:=false; 
button1.Enabled:=false; 
button2.Enabled:=true; 
end;
end;

[jbg]

Da fehlen wohl zwei mal "begin" und "end".


Übrigens wie oft wird denn deine "If-Schleife" wiederholt und wo ist die Laufvariable für die Schleife. :gruebel:

[mkinzler]

Sequenzen bettet man in begin..end ein:

Delphi-Quellcode:

if StrToInt(edit2.Text)<=0  then
begin
        label7.visible:=true;
        button1.Enabled:=false;
        button2.Enabled:=false;
end
else
begin
        label7.Visible:=false;
        button1.Enabled:=false;
        button2.Enabled:=true;
end;

[Alter Mann]

?

Doch wohl eher so:

Delphi-Quellcode:

if StrToInt(edit2.Text)<=0  then
begin
..
end
else
begin
end
...

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.

[PetBurki]

einmal pro onbuttonclick

Jetzt meldet er mir den Fehler, dass er ein simikolon will, und wenn ich ichs hinmache, sagt er: Decleration expected but else found. So sieht es grad aus:

procedure TForm1.Button1Click(Sender: TObject);
var schuss, leben :integer;
begin
randomize;
edit4.Text:='';
schuss:=random(10);
leben:=StrToInt(edit2.Text)-schuss;
edit4.Text:=IntToStr(schuss);
edit2.Text:=IntToStr(leben);

if StrToInt(edit2.Text)<=0 then
label7.visible:=true;
button1.Enabled:=false;
button2.Enabled:=false
end
else
begin
label7.Visible:=false;
button1.Enabled:=false;
button2.Enabled:=true;
end;

[PetBurki]

Zitat:

Zitat von Alter Mann

?

Doch wohl eher so:

Delphi-Quellcode:

if StrToInt(edit2.Text)<=0  then
begin
..
end
else
begin
end
...

zwischen begin und end nichts zu schreiben, ist doch ziemlich sinnlos, oder? Ich habs mal trotzdem versucht, klappt auch wie erwartet nicht!

[SirThornberry]

bitte setze die Delphi-Tags! Klicke dazu auf http://www.delphipraxis.net/template.../icon_edit.gif um deinen Beitrag nochmal ändern zu können und schreibe dann
[ delphi ]
dein Quelltext
[ /delphi ]

(leerzeichen zwischen den eckigen klammern weg lassen)

Zudem verwende bitte die Editfunktion auch um deine Beiträge zu ergänzen anstelle 2 Beiträge direkt hintereinander zu verfassen :)

[mkinzler]

Was ja nur um dir die Syntax zu zeigen