Forum: Object-Pascal / Delphi-Language
Delphi
by TheMiller,
5. Jan 2008
Danke an alle, die mir geholfen haben. Mit euren Vorschlägen funzt es jetzt!
Forum: Object-Pascal / Delphi-Language
Delphi
by TheMiller,
4. Jan 2008
Ich möchte Sekunden und Millisekunden zweistellig anzeigen lassen, also ungefähr so
15:26
Aber geteilt habe ich bei den ms richtig, oder?
Forum: Object-Pascal / Delphi-Language
Delphi
by TheMiller,
4. Jan 2008
So, das funzt jetzt soweit, um die Millisekunden auszurechnen, habe ich noch eine Zeile hinzugefügt und scheint auch richtig zu sein. Schaut bitte nochmal.
Aber wenn ich jetzt das Format ausgebe, dann zeigt er mir 3 Stellen an, wieso??
var
s, ms: Word;
Diff: Integer;
begin
Diff:=GetTickDiff(BPMStartTime, GetTickCount());
s:=Diff div 1000;
Forum: Object-Pascal / Delphi-Language
Delphi
by TheMiller,
4. Jan 2008
Das würde natürlich einiges Erklären...
Ich probiere das dann mal aus...
Danke und bis dann!
Forum: Object-Pascal / Delphi-Language
Delphi
by TheMiller,
4. Jan 2008
Ich habe nun folgenden Code:
Diff:=GetTickDiff(StartTime, GetTickCount());
s:=Diff div 60; //für Sekunden
Form1.Caption:=Format('%.2d', );
Jetzt sehe ich ja in der Caption der Form die "Sekunden". Doch die laufen viel zu schnell und stimmen nicht mit "realen" Sekunden überein! Wieso nicht? Was mache ich falsch?
Forum: Object-Pascal / Delphi-Language
Delphi
by TheMiller,
3. Jan 2008
Meine Hilfe geht nicht.. Hab Windows Vista und Delphi 7 und da geht die Hilfe nicht mehr??
Forum: Object-Pascal / Delphi-Language
Delphi
by TheMiller,
3. Jan 2008
Hallo,
ich versuche die zwischen zwei Zeitpunkten vergangene Zeit in Sekunden und Millisekunden anzuzeigen. Ich habe auch schon eine Funktion, aber die Zeit läuft irgendwie zu schnell...
var
h, m, s: Word;
Diff: Integer;
begin
TimeNow:=GetTickCount;
Diff:=TimeNow - StartTime;