Changeset 250 for Common/UCommon.pas

Timestamp:

Jun 13, 2011, 8:00:17 AM (13 years ago)

Author:

george

Message:

• Modified: Unit UCommon in CoolWeb package used form package Common as dependency.

File:

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

Common/UCommon.pas

@@ -36 +36 @@
 function TryHexToInt(Data: string; var Value: Integer): Boolean;
 function TryBinToInt(Data: string; var Value: Integer): Boolean;
+function BinToHexString(Source: AnsiString): string;
 //function DelTree(DirName : string): Boolean;
 //function GetSpecialFolderPath(Folder: Integer): string;
@@ -57 +58 @@
 implementation
 
+function BinToHexString(Source: AnsiString): string;
+var
+  I: Integer;
+begin
+  for I := 1 to Length(Source) do begin
+    Result := Result + LowerCase(IntToHex(Ord(Source[I]), 2));
+  end;
+end;
+
+
 procedure DeleteFiles(APath, AFileSpec: string);
 var