Einzelnen Beitrag anzeigen

Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#4

Re: Sekunden an einen Timer übergeben

  Alt 29. Aug 2004, 20:37
ich glaube folgendes:
du meinst du hast eine art edit oder so wo du die zeit drin anzeigen willst....

an dieses editfeld (den "timer") willst du eine integer-uhrzeit (Tdatetime?) übergeben und anzeige lassen...

so, wenn das soweit richtig war machst du dies:

Delphi-Quellcode:
var
zeit:TDateTime;
begin
zeit:=now;
Edit1.Text:=DateTimetostr(zeit);//der Timer
so, dann die zweite frage: da wo du close; sagst sagst du direkt danach Form_Timer.Show/Showmodal...

so, EDIT:

deine variable hat die sekunden drin, daher:
Delphi-Quellcode:
var
sekunden, minuten, stunden, tage:integer;
begin
minuten:=sekunden div 60;
sekunden:=sekunden mod 60;
stunden:=minuten div 60;
minuten:=minuten mod 60;
tage:=stunden div 24;
stunden:=stunden mod 24;
Edit1.Text:=inttostr(tage)+':'+inttostr(stunden)+':'+inttostr(minuten)+':'+inttostr(sekunden);//der Timer
das mit 01 beim ersten tag und so weiss ich so spontan auch nicht
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat