Delphi GetTickcount in stunden minuten und sekunden???

Thema durchsuchen

Ansicht

Themen-Optionen

GetTickcount in stunden minuten und sekunden???

Ein Thema von wb32 · begonnen am 4. Aug 2003 · letzter Beitrag vom 5. Aug 2003

Antwort

Duffy

Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge

Delphi 3 Standard

Re: GetTickcount in stunden minuten und sekunden???

4. Aug 2003, 17:18

Hallo wb32,
anbei mal ein Codefragment wie es gehen könnte. Als Grundlage hat mir der Beitrag

Sekunden in Zeit umwandeln gedient.

markieren

Delphi-Quellcode:

			procedure TForm1.BitBtn1Click(Sender: TObject);

var

  Start, Stop: Integer;

begin

  Start := GetTickCount;

  Sleep(10000);

  Stop := GetTickCount;

  ShowMessage(TimeToStr((Stop - Start) * (1 / 24 / 60 / 60 / 1000)));

end;

bye

Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----