[BUG] Panel wir nicht aktualisiert

[Hawkeye219]

Zitat von ByStones2:

wie meinst du das mit dem Einrücken ???

Es gibt viele Möglichkeiten, einen Quelltext zu formatieren. Das ist eine:

Delphi-Quellcode:

procedure TForm1.Button5Click (Sender: TObject);
  var Sparen: Integer;
begin
  if Arbeiter < 10 then
    begin
      if Geld > 99 then
        begin
          Geld := Geld - 100;
          Sparen := Arbeiter * 2;
          GeldTimer.Interval := GeldTimer.Interval - Sparen;
          Panel4.Caption := IntToStr(Arbeiter);
          Panel7.Caption := IntToStr(Geld) + ' €';
        end
      else
        ShowMessage ('Sie besitzen nicht genug Geld!');
    end
  else
    ShowMessage ('Sie besitzen schon 10 Arbeiter!');
end;

Gruß Hawkeye