Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Counter (https://www.delphipraxis.net/24798-counter.html)

TheAn00bis 26. Jun 2004 16:33


Counter
 
Hi,

ich will einen Counter in ein Programm einbaeun. Jetzt habe ich eine Variable, die die Größe trägt. Sie ist im Integer-Format.
Allerdings weiß ich nicht wie ich diese Variable Anzeigen lasse. Wahrscheinlich mit einem Label. Aber wie?

(P.S. ich halte es eigentlich für sinnlos, wegen einer solchen Frage einen neuen Thread aufzumachen, aber da man ja alles in einen neuen Thread bringen soll und ich sonst keine Antwort auf diese Frage gefunden habe.....)

Matze 26. Jun 2004 16:34

Re: Counter
 
Delphi-Quellcode:
Laber1.Caption := IntToStr(Variable);

TheAn00bis 26. Jun 2004 16:41

Re: Counter
 
Zitat:

Zitat von Matze
Delphi-Quellcode:
Laber1.Caption := IntToStr(Variable);

Was ist denn Laber1? Der Name des LAbels? Und was caption?

Chewie 26. Jun 2004 16:42

Re: Counter
 
Laber1 ist der Name des Labels.
Caption ist eine Eigenschaft des Labels, die angibt, welcher Text dargstellt wird.
InttoStr ist eine Funktion, die eine Zahl in einen String umwandelt.

Matze 26. Jun 2004 16:43

Re: Counter
 
Oh Mann, ich habe mich vertippt, es müsste "Label1" heißen.

Schau mal auf www.delphi-Source.de, da gibt's nen Einsteigertutorial. :roll:

TheAn00bis 26. Jun 2004 17:04

Re: Counter
 
Das ganze klappt.... leider nur bis 1.

Immer wenn man in dem Spiel gewonnen hat, wird die Variable "gewonnen" mit 1 addiert.

Am Ende jeder Runde steht der Befehl "Label1.Caption := IntToStr(gewonnen);".

Warum wird dieser Wert nicht über 1 erhöht? Muss ich den Wert hinterher wieder in einen Integer umwandeln???

ustra 26. Jun 2004 17:10

Re: Counter
 
Ich vermute, Du schreibst nur:
Delphi-Quellcode:
gewonnen := 1;
Du mußt aber immer
Delphi-Quellcode:
gewonnen := gewonnen + 1;
schreiben.

Ulrich

Matze 26. Jun 2004 17:12

Re: Counter
 
oder

Delphi-Quellcode:
inc(gewonnen);
was das gleiche ist. ;)

ustra 26. Jun 2004 17:16

Re: Counter
 
klar ist inc die kürzere Variante. Ich hatte es aber so gemacht, damit der Fehler deutlicher wird. Ich benutze auch nur inc, schließlich ist man ja so bequem wie es geht. :-D

TheAn00bis 26. Jun 2004 17:43

Re: Counter
 
:) Ihr hattet Recht. ICh hatte gewonnen:=(+1)geschrieben. Dabei habe ich nicht bedacht, dass Delphi das + für das Vorzeichen hällt.
Danke!

Nicolai1234 26. Jun 2004 18:17

Re: Counter
 
Ich möchte dir ja nicht zu nahe treten, aber ich würde dir auch das oben angesprochende Einsteiger-Tutorial empfehlen!
Wie soll sonst je was aus deinem Spiel werden? Was wird es denn überhaupt für ein Spiel?

Neuni 26. Jun 2004 18:22

Re: Counter
 
Ich versteh nicht wie man n spiel proggen kann ohne inttostr(), oder inc() zu kennen???

Nicolai1234 26. Jun 2004 18:23

Re: Counter
 
Eben deswegen mein Einwand mit dem Einsteiger Tutorial! Ich habe selber noch kein wirkliches (Grafik-)Spiel gemacht! Aber ich denke, dass ich das auch gar nicht schaffen würde, obwohl ich deutlich mehr als nur ein Einsteiger Tutorial kann!

TheAn00bis 27. Jun 2004 10:40

Re: Counter
 
Das Spiel ist total simpel:

Erstmal habe ich ein Menu mit Credits und StartGAme und so drin. Das eigentliche Spiel sieht dann so aus: MAn muss auf eines von 3 Toren klicken. Hinter 1Tür ist ein Gewinn hinter den anderen beiden Etwas, das Symbolisiert, dass man verloren hat. Allerdings öfnet sich beim ersten klick ein anderes, hinter dem ein Verloren-Symbol ist. Dann kann man sich nochmal zwischen den Beiden entscheiden: Entweder das was man als erstes wollte oder das andere, was noch nicht geöffnet wurde. Der Gewinn ist immer zufällig platziert.

Hab dieses Spiel eigentlich schon fertig. Hab auch einen Counter drin der sagt, wieoft amn gewonnen und verloren hat. [edit: hat sich erledigt]

StefanDP 28. Jun 2004 17:57

Re: Counter
 
... das Ziegenproblem! Ein mathematisches Spiel... :thuimb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz