Zeit messen

[SleepyMaster]

ok... Hab eine Lösung, die sogar auf die Milisekunde genau ist...

Delphi-Quellcode:

var
  Form1: TForm1;
  starttime: TTimeStamp;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  starttime := DateTimeToTimeStamp(now);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  TimeStamp: TTimeStamp;
begin
  TimeStamp := DateTimeToTimeStamp(now);
  label1.Caption := inttostr((TimeStamp.Date - starttime.Date)*24*60*60*1000 + TimeStamp.Time - starttime.Time);
end;