[BUG] Panel wir nicht aktualisiert

[ByStones2]

Hi,

ich hab da ein Problem bei meinem neuen Programm, der Inhalt eines Panels wird nicht aktualisiert:

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 genung Geld!');
end
else
showmessage('Sie besitzen schon 10 Arbeiter!');
end;

Ich weiß nicht wo das Problem liegt ???
Ich hoffe ihr könnt mir helfen ?!
Ich meine
Panel4.Caption := inttostr(arbeiter);
Er wollte die Zeile nicht rot färben ???!!!
Das Problem hab ich bei mehreren Panels !!!

ByStones

[Hawkeye219]

Hi!

Der Benutzer hat für die 100 EUR wahrscheinlich Arbeiter eingekauft. Mußt du dann nicht die Variable Arbeiter erhöhen?

PS: Einrücken und bessere Bezeichner (statt Button5, Panel4, Panel7) erleichtern die Lesbarkeit
und vergessene Buchstaben erschweren sie...

Gruß Hawkeye

[ByStones2]

OK das Problem ist wirklich ein Fehler von mir !!!
Danke für die Hilfe, jetzt kommt das Problem nr. 2

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
if Geld > 1500 then
begin
if Felder < 30 then
begin
Felder := Felder +1;
Geld := Geld - 1500;
Panel2.Caption := inttostr (Felder);
case Felder of
  2: Feld2.Color := clGreen;
  3: Feld3.Color := clGreen;
  4: Feld4.Color := clGreen;
  5: Feld5.Color := clGreen;
  6: Feld6.Color := clGreen;
  7: Feld7.Color := clGreen;
  8: Feld8.Color := clGreen;
  9: Feld9.Color := clGreen;
  10:  Feld10.Color := clGreen;
  11:  Feld11.Color := clGreen;
  12:  Feld12.Color := clGreen;
  13:  Feld13.Color := clGreen;
  14:  Feld14.Color := clGreen;
  15:  Feld15.Color := clGreen;
  16:  Feld16.Color := clGreen;
  17:  Feld17.Color := clGreen;
  18:  Feld18.Color := clGreen;
  19:  Feld19.Color := clGreen;
  20:  Feld20.Color := clGreen;
  21:  Feld21.Color := clGreen;
  22:  Feld22.Color := clGreen;
  23:  Feld23.Color := clGreen;
  24:  Feld24.Color := clGreen;
  25:  Feld25.Color := clGreen;
  26:  Feld26.Color := clGreen;
  27:  Feld27.Color := clGreen;
  28:  Feld28.Color := clGreen;
  29:  Feld29.Color := clGreen;
  30:  Feld30.Color := clGreen;
end;
end
else
showmessage ('Sie besitzen alle Felder in ihrer Umgebung!');
end
else
showmessage ('Sie besitzen nicht genug Geld!');
end;

Gleiches Problem wie oben !!!

[ByStones2]

Zitat von Hawkeye219:

Hi!

Der Benutzer hat für die 100 EUR wahrscheinlich Arbeiter eingekauft. Mußt du dann nicht die Variable Arbeiter erhöhen?

PS: Einrücken und bessere Bezechner (statt Button5, Panel4, Panel7) erleichtern die Lesbarkeit

Gruß Hawkeye

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

[ByStones2]

Stop !!!!!!!!!!!
Ich hab den Fehler selber gefunden !!!
Ich hab vergessen das Geld-Panel zu aktualisieren !!!
Nochmal Danke an alle (einer) der mir geholfen hat !!!

[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

[ByStones2]

ok, werde ich machen !!!
Danke nochmal