Problem mit if then schleife

Thema durchsuchen

Ansicht

Themen-Optionen

Problem mit if then schleife

Ein Thema von PetBurki · begonnen am 8. Mai 2007 · letzter Beitrag vom 9. Mai 2007

Vorheriger Beitrag

Nächster Beitrag

uwewo

Registriert seit: 14. Jul 2004
Ort: Karlsruhe
479 Beiträge

Delphi 2006 Professional

Re: Problem mit if then schleife

8. Mai 2007, 20:19

Nächstesmal mit Delphi TAGS

zusammenfalten · markieren

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;