und nimm Dir den Rat von Luckie zu Herzen.
Ist so doch viel übersichtlicher, oder?
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;
Eine entsprechende Anleitung findest du z. B.
hier.
Welche Quelltextformatierung Du im Endeffekt wählst, mußt Du natürlich selbst entscheiden. Wichtig ist nur, dass der Quelltext auch für andere lesbar wird (und somit auch für Dich, Du schaust da sonst nach einiger Zeit selbnst niucht mehr durch).
Gruß
Thomas
PS: Herzlich willkommen in der Delphi-Praxis.
Wer hier Hilfe sucht, wird diese in der Regel auch bekommen. Aber lies Dir bitte die Antworten genau durch. Wir investieren alle gerne ein wenig Zeit, um anderen zu helfen. Dafür erwarten wir aber auch, dass der Fragesteller sich die Zeit nimmt, die Antworten durchzuarbeiten.
[TrotzRotemKastens]Weil ein Link zu einem Styleguide drin ist[/TrotzRotemKastens]