Вывод текущего времени формата H:M:S:MS, где MS - миллисекунды

[Gypsy]

Здравствуйте, уважаемые!
Собственно, как сделать сабж. Желательно, чтобы было максимально быстро.
Заранее спасибо!

[Пепел Феникса]

ShowMessage(FormatDateTime('h:n:s:z',Now));

[Gypsy]

Слов нет, одни эмоции!
Спасибо!

[Alex Cones]

Можно еще поизвращаться моим способом (не требует модулей вообще) :

Interface

Type
  TSystemTime                 = _SYSTEMTIME;

Function  SRV_FileExists(FileName : ShortString) : Boolean;
Function  SRV_IntToStr(I: SmallInt; Count :Byte): ShortString;
Procedure  SRV_GetLocalTime(Var lpSystemTime: TSystemTime); StdCall;
          External 'kernel32.dll' Name 'GetLocalTime';

Implementation

Function SRV_IntToStr(I: SmallInt; Count : Byte): ShortString;
Var
 J : SmallInt;
Begin
 Result := '';
 J := I;
 If Count > 4 Then Result := Result + SRV_IntToChar(J Div 10000);
 J := J - (J Div 10000) * 10000;
 If Count > 3 Then Result := Result + SRV_IntToChar(J Div 1000 );
 J := J - (J Div 1000) * 1000;
 If Count > 2 Then Result := Result + SRV_IntToChar(J Div 100  );
 J := J - (J Div 100) * 100;
 If Count > 1 Then Result := Result + SRV_IntToChar(J Div 10   );
 J := J - (J Div 10) * 10;
 Result := Result + SRV_IntToChar(J);
End;

Function SRV_FileExists(FileName : ShortString) : Boolean;
 Var
  TestFile : TextFile;
 Begin
  AssignFile(TestFile, FileName);
  {$I-}
  Reset(TestFile);
  {$I+}
  If IOResult = 0 Then
   Begin
    Result := TRUE;
    CloseFile(TestFile);
   End
  Else
   Result := FALSE;
 End;

//И наконец сам способ получения:

Procedure SRV_AddLog(S : ShortString);
 Var
  F   : TextFile;
  T   : TSystemTime;
 Begin
  If LogMode Then
   If SRV_FileExists(LogDir + '\Log.txt') Then
    Begin
     {$I-}
     SRV_GetLocalTime(T);
     AssignFile(F, LogDir + '\Log.txt');
     Append(F);
     Writeln(F,SRV_IntToStr(T.wDay, 2)+'.'+
               SRV_IntToStr(T.wMonth, 2)+'.'+
               SRV_IntToStr(T.wYear, 4)+' '+
               SRV_IntToStr(T.wHour, 2)+':'+
               SRV_IntToStr(T.wMinute, 2)+':'+
               SRV_IntToStr(T.wSecond, 2)+':'+
               SRV_IntToStr(T.wMilliseconds, 3)+' '+S);
     CloseFile(F);
     {$I+}
    End;
 End;

[Пепел Феникса]

Alex Cones, ему один фиг SysUtils нужен
не думаю что он ВинАПИшник=)

[Alex Cones]

Alex Cones, ему один фиг SysUtils нужен

SysUtils - зло! Он добавляет лишние 25 килокалорий!

не думаю что он ВинАПИшник=)

Учиться никогда не поздно.

P.S. А так - может пригодится кому...