Changeset 37 for trunk/Common/UHtmlClasses.pas

Timestamp:

Oct 30, 2010, 7:36:25 PM (14 years ago)

Author:

george

Message:

• Modified: TAssociativeArray replaced by specialized generic class TDictionaryStringString.
• Modified: All TObjectList replaced by specialized generic class TListObject.

File:

• trunk/Common/UHtmlClasses.pas (modified) (3 diffs)

trunk/Common/UHtmlClasses.pas

@@ -6 +6 @@
 
 uses
-  UXmlClasses, Classes, SysUtils, Contnrs, UStringListEx;
+  UXmlClasses, Classes, SysUtils, UStringListEx, ListObject;
 
 type
@@ -95 +95 @@
   public
     BlockType: TBlockType;
-    SubItems: TObjectList; // of THtmlElement;
+    SubItems: TListObject; // TListObject<THtmlElement>;
     constructor Create;
     destructor Destroy; override;
@@ -294 +294 @@
 constructor THtmlBlock.Create;
 begin
-  SubItems := TObjectList.Create;
+  SubItems := TListObject.Create;
 end;