1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
|
unit uDefs;
interface
uses SysUtils,stdctrls,Dialogs,DateUtils,Forms;
const
CVERSION = '1.00';
CVERDATE = '10/08/2007';
var
GAPPPATH : String;
procedure MemoMessage (Memo : TMemo; sText : String);
procedure CreateLogFile(sFilename,sText : String);
function Wait (ms : Integer) : Integer;
implementation
procedure MemoMessage (Memo : TMemo; sText : String);
begin
CreateLogFile(FormatDateTime('YYYYMMDD',Now) + '.log',
DateToStr(Now) + ' ' + TimeToStr(Now) + sText);
while Memo.Lines.Count > 500 do
Memo.Lines.Delete(0);
Memo.Lines.Add('[' + DateToStr(Now) + ' ' + TimeToStr(Now) + '] ' + sText);
end;
procedure CreateLogFile(sFilename,sText : String);
var
FText : TextFile;
sFile, sDir : String;
begin
try
sDir := GAPPPATH + '\logs\' + FormatDateTime('YYYY',Now) + '\' +
FormatDateTime('MM',Now) + '\';
if not DirectoryExists(sDir) then
ForceDirectories(sDir);
sFile :=sDir + sFileName;
AssignFile(FText,sFile);
if FileExists(sFile) then
Append(FText)
else
ReWrite(FText);
try
Writeln(FText,Trim(sText));
finally
Closefile(FText);
end;
Except on E:Exception do
begin
if IOResult = 32 then
CreateLogFile(sFileName,sText)
else
ShowMessage(E.Message);
end;
end;
end;
function Wait (ms : Integer) : Integer;
var
dTimeDebut : TDateTime;
iMsBetween : Integer;
begin
dTimeDebut := Now;
iMsBetWeen := MilliSecondsBetween(Now,Now);
while iMsBetWeen <= ms do
begin
Application.ProcessMessages;
iMsBetween := MilliSecondsBetween(dTimeDebut,Now);
end;
Result := abs(iMsBetween);
end;
end. |
Partager