Changeset 37 for trunk/Common/UXmlClasses.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/UXmlClasses.pas (modified) (3 diffs)

trunk/Common/UXmlClasses.pas

@@ -5 +5 @@
 interface
 
-uses Classes, SysUtils, Contnrs, StrUtils, UStringListEx;
+uses Classes, SysUtils, StrUtils, UStringListEx, ListObject;
 
 type
@@ -30 +30 @@
     Name: string;
     Attributes: TStringListEx;
-    SubElements: TObjectList; // of TXmlElement;
+    SubElements: TListObject; // TListObject<TXmlElement>;
     constructor Create;
     destructor Destroy; override;
@@ -59 +59 @@
   Attributes := TStringListEx.Create;
   Attributes.NameValueSeparator := '=';
-  SubElements := TObjectList.Create;
+  SubElements := TListObject.Create;
   EndTagSymbol := '/';
 end;