Anfängerfrage: Prozedur nur 3mal durchlaufen

meldano · Hält's aus hier Beiträge: 3

Hi Leute,

ein Anfänger braucht Hilfe. Ich habe gerade ein kleines Würfelspiel programmiert. Jetzt soll der Spieler aber nur 3 mal die Möglichkeit haben das Spiel auszulösen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm2.StartClick(Sender: TObject);
begin
.
.
.
end;

Diese Prozedur darf dann nur 3mal durchlaufen. Die noch verbleibenden Versuche sollen über ein Editfenster angezeigt werden.

Die Delphi Hilfe und das Forum habe ich schon durchsucht, aber leider nichts gefunden.

Danke @all for all ;-)

!

Moderiert von Christian S.: Delphi-Tags hinzugefügt
Moderiert von Christian S.: Topic aus VCL (Visual Component Library) verschoben am Fr 24.11.2006 um 20:37

Magic J · Verfasst: Fr 24.11.06 21:33

Du deklarierst einfach eine Variable, die am Anfang auf 3 gesetzt wird und bei jedem Ausführen der Prozedure minus eins gemacht wird.
dann musst du nur noch prüfen ob sie noch >0 ist
Guck hier

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Var Versuche:Integer;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Versuche:=3;
end;

procedure TForm2.StartClick(Sender: TObject);
begin
  if Versuche<1 Then exit;
  Dec(Versuche);
  .
  .
  .
end;

meldano · Hält's aus hier Beiträge: 3

Ja super! Vielen Dank!

Noch ne Dumme Frage: Wie bekomme ich es denn jetzt hin die Variable in einem Editfenster anzuzeigen.
Irgendwie scheitern alle meine Versuche.

Danke

meldano

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Schau Dir mal die Grundlagen an.

markieren

Delphi-Quelltext

1:	Edit1.Text:=IntToStr(Versuche);

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

GTA-Place · Verfasst: Sa 25.11.06 13:11

markieren

Delphi-Quelltext

1:	Edit1.Text := IntToStr(Versuche);

Siehe auch Suche in der Entwickler-Ecke

INTTOSTR und Suche in der Entwickler-Ecke

FLOATTOSTR.

EDIT: Zu langsam... :-(

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme