Obekt-Erstellung funktioniert nicht

[himitsu]

Zitat:

Wie kann ich es nun so einbauen. dass sobald Bank=0, der Button nicht mehr klickbar ist, also z.B. auch Visible:=false.

Meintest du das so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
repeat
  bank:=bank-1;
  panel5.Caption:=IntToStr(bank);
  if bank=0 then
    ShowMessage('Sie haben verloren'+ #13 + 'Starten Sie ein neues Spiel!');
  Button1.visible := false;
until bank>=0 ;

das müßte dann allerdings so aussehn, damit das visible mit zum IF gehört

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
repeat
  bank:=bank-1;
  panel5.Caption:=IntToStr(bank);
  if bank=0 then
  begin
    ShowMessage('Sie haben verloren'+ #13 + 'Starten Sie ein neues Spiel!');
    Button1.visible := false;
  end;
until bank>=0 ;

PS: Die Repeat-Schleife wird erst verlassen, wenn bank>=0 .
Ist bank mal kleiner als 0 (bzw. zu Begin maximal 0), dann ergäbe das fast eine Endlosschleife.
(dank des Überlaufs bei etwa -2 Milliarden würde es aber zum Glück dann doch irgendwann abbrechen)

also ich würde das Repeat einfach weglassen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Dec(bank)  // entspricht einem bank:=bank-1;
  panel5.Caption:=IntToStr(bank);
  if bank=0 then
  begin
    ShowMessage('Sie haben verloren'+ CRLF + 'Starten Sie ein neues Spiel!');
    Button1.visible := false;
  end;
end;

// CRLF= #13#10, welches einem Zeilenumbruch in Delphi entspricht