Changeset 250 for Common

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.

Location:

Common

Files:

• UCommon.pas (modified) (2 diffs)
• UDebugLog.pas (modified) (4 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

Common/UDebugLog.pas

@@ -21 +21 @@
   { TDebugLog }
 
-  TDebugLog = class
+  TDebugLog = class(TComponent)
   private
+    FFileName: string;
     FOnNewItem: TNewItemEvent;
   public
-    FileName: string;
     WriteToFileEnable: Boolean;
     Items: TThreadList;
@@ -32 +32 @@
     procedure WriteToFile(Text: string);
     property OnNewItem: TNewItemEvent read FOnNewItem write FOnNewItem;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+  published
+    property FileName: string read FFileName write FFileName;
   end;
 
@@ -85 +87 @@
 end;
 
-constructor TDebugLog.Create;
+constructor TDebugLog.Create(AOwner: TComponent);
 begin
+  inherited;
   Items := TThreadList.Create;
   MaxCount := 100;
@@ -105 +108 @@
 end;
 
-initialization
-
-DebugLog := TDebugLog.Create;
-
-finalization
-
-DebugLog.Free;
-
 end.