Changeset 305 for Common/UDebugLog.pas

Timestamp:

Jan 3, 2012, 10:31:59 AM (13 years ago)

Author:

chronos

Message:

• Added: Property Finished of TListedThread.

File:

• Common/UDebugLog.pas (modified) (3 diffs)

Common/UDebugLog.pas

@@ -45 +45 @@
 
 implementation
+
+resourcestring
+  SFileNameNotDefined = 'Filename not defined';
 
 procedure Register;
@@ -100 +103 @@
   LogFile: TFileStream;
 begin
+  if FileName = '' then raise Exception.Create(SFileNameNotDefined);
   try
     if ExtractFileDir(FileName) <> '' then
@@ -131 +135 @@
     TDebugLogItem(List[I]).Free;
   Items.Free;
-  inherited Destroy;
+  inherited;
 end;