Daten aus Zeit auslesen

[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