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]