stopuhr

[karlheinz4]

hallo!
Ich bin dabei ein Spiel zu installieren und möchte die Spielzeit bzw. "Überlebenszeit" sichtbar nebenbei laufen lassen und nach einem Neustart wieder reseten. Nur leider fehlt mir hierfür der Ansatz. Angefangen habe ich mit TLabels und TTimern..

Vielen Dank für Eure Hilfe.

[theo]

Hier gibt's jede Menge Infos zu Zeit und Datum

http://www.freepascal.org/docs-html/rtl ... tines.html" onclick="window.open(this.href);return false;
http://www.freepascal.org/docs-html/rtl ... dex-5.html" onclick="window.open(this.href);return false;

Wenn du nur Millisekunden hochzählen willst, ginge u.U. auch GetTickCount in unit LCLIntf

[karlheinz4]

danke dir, aber richtig durchblicken tu ich leider nicht. ich habe vor, eine Stoppuhr (00:00:00) laufen zulassen. Wäre in diesem Fall das hier das richtige? http://www.freepascal.org/docs-html/rtl ... etime.html" onclick="window.open(this.href);return false;

wenn ja, verstehe ich leider nicht, wo und wie mir die zeit angezeigt werden soll

[theo]

Also sowas ginge, zum Sekunden zählen:

Code: Alles auswählen

var Tim:TDateTime;
begin
  Tim:=Now;
  Sleep(2100); //Rund zwei Sek. abwarten. Normalerweise Timer nehmen
  Caption:=Inttostr(SecondsBetween(Now,Tim));
end;

Der Rest geht analog.

[creed steiger]

Wenn du dir zutraust dich in´s Arbeiten mit Multithreading einzuarbeiten,gibt es im examples Verzeichnis eine Demo dazu (MultiThreadingExample1) auf der du aufbauen könntest.
EpikTimer is evtl auch interessant:
http://wiki.freepascal.org/EpikTimer/de" onclick="window.open(this.href);return false;

[Heinrich Wolf]

ich habe vor, eine Stoppuhr (00:00:00) laufen zulassen.

Diese Formatierung kriegst Du so:

Code: Alles auswählen

Start := Now;
...
Label1.Caption := FormatDateTime('hh:mm:ss', Now - Start);

Heiner

[karlheinz4]

vielen dank für die ganzen antworten!

Diese Formatierung kriegst Du so:
CODE: ALLES AUSWÄHLEN
Start := Now;
...
Label1.Caption := FormatDateTime('hh:mm:ss', Now - Start);

Ich stell mich gerade leider ein bisschen doof an.. wo genau muss das denn eingefügt werden?

[Scotty]

Wenn du dir zutraust dich in´s Arbeiten mit Multithreading einzuarbeiten...

Gibts schon: fpTimer

[MAC]

vielen dank für die ganzen antworten!

Diese Formatierung kriegst Du so:
CODE: ALLES AUSWÄHLEN
Start := Now;
...
Label1.Caption := FormatDateTime('hh:mm:ss', Now - Start);

Ich stell mich gerade leider ein bisschen doof an.. wo genau muss das denn eingefügt werden?

Naja mit dem befehl Now bekommst du die genause SystemZeit...
so wenn wir jetzt also starten vollen z.B: beim klick auf Button1 schreiben wir

Code: Alles auswählen

Start := now

Jetzt könnten wir nen Timer setzten der alle Halbe sekunde aufgerufen wird:

Code: Alles auswählen

Label1.Caption := FormatDateTime('hh:mm:ss', Now - Start);[/quote]
 
Beachte das Start eine globale variable
[code=laz]var
  start:TTime = 0;

[karlheinz4]

danke euch, habe es endlich hinbekommen