Entwickler-Ecke

Sonstiges (Delphi) - Anfängerfrage: Prozedur nur 3mal durchlaufen


meldano - Fr 24.11.06 20:59
Titel: Anfängerfrage: Prozedur nur 3mal durchlaufen
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.


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 user profile iconChristian S.: Delphi-Tags hinzugefügt
Moderiert von user profile iconChristian S.: Topic aus VCL (Visual Component Library) verschoben am Fr 24.11.2006 um 20:37


Magic J - 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


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 - Sa 25.11.06 13:07

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 - Sa 25.11.06 13:11

Schau Dir mal die Grundlagen an.

Delphi-Quelltext
1:
Edit1.Text:=IntToStr(Versuche);                    


GTA-Place - Sa 25.11.06 13:11


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... :-(