Problem mit else

[Back2Code]

Also ich habe diesmal folgendes Problem : Ich möchte gerne eine Schleife mit if & else benutzen nur irgendwie bekomm ich den Fehler nicht gefixxt den Delphi ausspuckt :

Code:

[DCC Fehler] Unit3.pas(60): E2029 'END' erwartet, aber 'ELSE' gefunden

Code Snippet von der Stelle :

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
var i: integer;
begin
for i := 1 to 100 do
begin
if i > 50 then
ShowMessage(IntToStr(i));
end
else begin
ShowMessage('Alles andere');
end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
Button2.Enabled := False; // "" Siehe *
end;

end.

Freue mich über jede Hilfe.

EDIT: Danke für die schnelle Hilfe.:thumb:

[Neutral General]

Hi,

Rück mal deinen Code anständig ein, dann siehst du auch einfacher wo das Problem liegt!

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
var i: integer;
begin
  for i := 1 to 100 do
  begin
    if i > 50 then
 // begin
      ShowMessage(IntToStr(i));
    end
    else 
    begin
      ShowMessage('Alles andere');
    end;
  end;
//end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  Button2.Enabled := False; // "" Siehe *
end;

end.

In den Kommentaren steht was du vergessen hast. Passiert wie gesagt nicht, wenn du übersichtlicher einrückst ;)

[haentschman]

Zitat:

Schleife mit if & else

:cheer: wieder ein Kasten :cheers: mehr auf den Delphitagen. Wenn das so weitergeht, wird das ein ganz schönes Gelage :lol:

[DeddyH]

Gilt nicht, da er ja tatsächlich eine Einfachverzweigung innerhalb einer Kopfschleife verwendet :tongue:

[haentschman]

...und ich hatte mich schon gefreut. :( Er hat ja tatsächlich ne Schleife... Man sollte einfach alles lesen :oops: