31 lines
619 B
Plaintext
31 lines
619 B
Plaintext
|
unit Misc;
|
||
|
|
||
|
interface
|
||
|
|
||
|
uses Windows, Sysutils;
|
||
|
|
||
|
procedure DebugString(aCaption, aText: string);
|
||
|
|
||
|
implementation
|
||
|
|
||
|
// GetFormatDT - Output = formated DateTime String
|
||
|
function GetFormatDT(aDateTime: TDateTime): string;
|
||
|
begin
|
||
|
Result := FormatDateTime('dd.mm.yy hh:nn:ss zzz', aDateTime);
|
||
|
end;
|
||
|
|
||
|
// GetFormatT - Output = formated Time String
|
||
|
function GetFormatT(aDateTime: TDateTime): string;
|
||
|
begin
|
||
|
Result := FormatDateTime('hh:nn:ss zzz', aDateTime)
|
||
|
end;
|
||
|
|
||
|
procedure DebugString(aCaption, aText: string);
|
||
|
begin
|
||
|
OutputDebugString(PChar(Format('[%s][%s] %s',
|
||
|
[aCaption, GetFormatDT(Now()),
|
||
|
aText])));
|
||
|
end;
|
||
|
|
||
|
end.
|