Problem mit else

[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