Uhrzeit auf die Millisekunde

[Jelly]

Zitat von TStringlist:

@Crazymodder, die Uhrzeit? In "NOW" sind doch die Millisekunden immer auch schon mit dabei!

Ja, aber eben nur auf 15 msec genau. Genauer kann man damit nicht rechnen.
Probierts aus:

Delphi-Quellcode:

procedure TForm27.Button1Click(Sender: TObject);
var
  t, t1: TDateTime;
  t0: TDateTime;
begin
     t := now ;
     t0 := t ;
     listbox1.Items.BeginUpdate;
     while now - t0 < EncodeTime (0,0,3,0) do begin
         t1 := now ;
         if t <> t1 then begin
             listbox1.items.add (formatDateTime ('s, zzz',t1-t)) ;
             t := now ;
         end;
     end ;
     listbox1.Items.EndUpdate;
end;

GetTickCount hingegen ist auf die msec genau.