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