Changeset 360 for Common

Timestamp:

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

Author:

chronos

Message:

 

Location:

Common

Files:

• Common.pas (modified) (1 diff)
• UCommon.pas (modified) (2 diffs)
• URectangle.pas (deleted)

Common/Common.pas

@@ -9 +9 @@
 uses
   StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading, 
-  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry,
+  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 
   LazarusPackageIntf;
 

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;