12. Juni 2008 13:06
12. Juni 2008 13:29
12. Juni 2008 15:14
12. Juni 2008 16:45
12. Juni 2008 16:55
// EServ_Log(tLog)
rCompInfo.GET();
fLogfile.TEXTMODE(TRUE);
fLogfile.WRITEMODE(TRUE);
IF NOT fLogfile.OPEN(rCompInfo.LogFilePath) THEN BEGIN
fLogfile.CREATE(rCompInfo.LogFilePath);
fLogfile.WRITE(STRSUBSTNO('%1 %2', CURRENTDATETIME, tLog));
END ELSE BEGIN
fLogfile.SEEK(fLogfile.LEN);
fLogfile.WRITE(STRSUBSTNO('%1 %2', CURRENTDATETIME, tLog));
END;
fLogfile.CLOSE();
13. Juni 2008 08:58