Changeset 360 for Common/UCommon.pas

Timestamp:

May 7, 2012, 10:32:41 AM (13 years ago)

Author:

chronos

Message:

 

File:

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

Common/UCommon.pas

@@ -49 +49 @@
 function SplitString(var Text: string; Count: Word): string;
 function GetBit(Variable: QWord; Index: Byte): Boolean;
-procedure SetBit(var Variable: QWord; Index: Byte; State: Boolean);
-procedure SetBit(var Variable: Cardinal; Index: Byte; State: Boolean);
-procedure SetBit(var Variable: Word; Index: Byte; State: Boolean);
+procedure SetBit(var Variable: QWord; Index: Byte; State: Boolean); overload;
+procedure SetBit(var Variable: Cardinal; Index: Byte; State: Boolean); overload;
+procedure SetBit(var Variable: Word; Index: Byte; State: Boolean); overload;
 function AddLeadingZeroes(const aNumber, Length : integer) : string;
 function LastPos(const SubStr: String; const S: String): Integer;
@@ -413 +413 @@
 procedure OpenFileInShell(FileName: string);
 begin
-  ExecuteProgram('cmd.exe /c start ' + FileName);
+  ExecuteProgram('cmd.exe /c start "' + FileName + '"');
 end;