Changeset 364 for Common/UCommon.pas

Timestamp:

May 22, 2012, 7:44:56 AM (12 years ago)

Author:

chronos

Message:

• Added: UJobProgressView to Common package. This unit handle operations progress vizualization.
• Added: Procedure FreeThenNil to Common package.

File:

• Common/UCommon.pas (modified) (2 diffs)

Common/UCommon.pas

@@ -61 +61 @@
 procedure OpenFileInShell(FileName: string);
 procedure ExecuteProgram(CommandLine: string);
+procedure FreeThenNil(var Obj);
 
 
@@ -392 +393 @@
 end;
 
+procedure FreeThenNil(var Obj);
+begin
+  TObject(Obj).Free;
+  TObject(Obj) := nil;
+end;
+
 procedure OpenWebPage(URL: string);
 var