Daten aus Zeit auslesen

[Luzifer666]

Hallo Community!

Ich möchte gerne per Timer jede Sekunde die aktuelle Zeit auslesen und dabei Stunde, Minute und Sekunde in jeweils einer seperaten Variable speichern.
Wie mache ich das? :)

Danke schonmal im Voraus!

[fkerber]

Hi!

Ein paar Stichworte für dich:

TimeToStr
now
explode
Copy

Hoffe, du kannst damit etwas anfangen.


Ciao Frederic

[Jelly]

Die aktuelle Zeit kriegst du mit now. Zerlegen kannst du diese Zeit mit DecodeTime.

[Luzifer666]

Danke für die Tipps! Hat mich weitergebracht! :)

[Duffy]

Hallo Luzifer666,
das Ganze kann so funktionieren ...

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  DateTime: TDateTime;
  Year, Month, Day: Word;
  Hour, Min, Sec, MSec: Word;
begin
  DateTime := now;
  DecodeDate(Date, Year, Month, Day);
  DecodeTime(DateTime, Hour, Min, Sec, MSec);
  MaskEdit1.Text := DateTimeToStr(DateTime);
  MaskEdit2.Text := IntToStr(Hour);
  MaskEdit3.Text := IntToStr(Min);
  MaskEdit4.Text := IntToStr(Sec);
  MaskEdit5.Text := IntToStr(MSec);
end;

bye
Claus

[Luzifer666]

Genauso hab ichs gemacht! :) Danke nochmal an alle! :D