Re: Problem mit if then schleife
vielen dank, habt mir sehr geholfen!
|
Re: Problem mit if then schleife
Vorher:
Delphi-Quellcode:
Nachher: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;
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; [EDIT] .. (viel) zu langsam :? ^^ |
Re: Problem mit if then schleife
Hallo,
#edit: viiiel zu langsam ;( das ist dein Code, wenn du mal hören würdest, was man dir sagt (formatieren)
Delphi-Quellcode:
Wie du jetzt unschwer erkennen kannst , fehlt ein begin
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;
Delphi-Quellcode:
if StrToInt(edit2.Text)<=0 then
begin // das hat gefehlt label7.visible:=true; button1.Enabled:=false; button2.Enabled:=false end else begin label7.Visible:=false; button1.Enabled:=false; button2.Enabled:=true; end; Heiko |
Re: Problem mit if then schleife
und nimm Dir den Rat von Luckie zu Herzen.
Ist so doch viel übersichtlicher, oder?
Delphi-Quellcode:
Eine entsprechende Anleitung findest du z. B. hier.
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; 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] |
Re: Problem mit if then schleife
Und wenn man einen automatischen Codeformatierer benutzt, dann sieht man sogar an den Einrückungen, die der Codeformatierer macht, wenn irgendwo was nicht stimmt.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:35 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz