Changeset 295 for Common/UDebugLog.pas

Timestamp:

Nov 15, 2011, 8:46:43 AM (13 years ago)

Author:

george

Message:

• Moved: Units UPool and UResetableThread moved from CoolWeb to Common. Both units redone to more abstract reprezentation.
• Added: New Port property in class TSqlDatabase.

File:

• Common/UDebugLog.pas (modified) (1 diff)

Common/UDebugLog.pas

@@ -101 +101 @@
 begin
   try
-    ForceDirectoriesUTF8(ExtractFileDir(FileName));
+    if ExtractFileDir(FileName) <> '' then
+      ForceDirectoriesUTF8(ExtractFileDir(FileName));
     if FileExistsUTF8(FileName) then LogFile := TFileStream.Create(UTF8Decode(FileName), fmOpenWrite)
       else LogFile := TFileStream.Create(UTF8Decode(FileName), fmCreate);