Problem mit if then schleife

[PetBurki]

vielen dank, habt mir sehr geholfen!

[TeronG]

Vorher:

Delphi-Quellcode:

     
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;

Nachher:

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 ^^

[hoika]

Hallo,

#edit: viiiel zu langsam ;(

das ist dein Code, wenn du mal hören würdest,
was man dir sagt (formatieren)

Delphi-Quellcode:

  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;

Wie du jetzt unschwer erkennen kannst , fehlt ein begin

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

[TBx]

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]

[Luckie]

Und wenn man einen automatischen Codeformatierer benutzt, dann sieht man sogar an den Einrückungen, die der Codeformatierer macht, wenn irgendwo was nicht stimmt.