Changeset 42 for trunk/Common/UXmlClasses.pas

Timestamp:

Nov 21, 2010, 8:49:46 AM (14 years ago)

Author:

george

Message:

• Upraveno: Zbylé výskyty TStringListEx nahrazeny TListString a TDictionaryStringString.

File:

• trunk/Common/UXmlClasses.pas (modified) (5 diffs)

trunk/Common/UXmlClasses.pas

@@ -5 +5 @@
 interface
 
-uses Classes, SysUtils, StrUtils, UStringListEx, SpecializedObjectList;
+uses Classes, SysUtils, StrUtils, SpecializedList, SpecializedObjectList,
+  SpecializedDictionary;
 
 type
@@ -29 +30 @@
     ShringEmpty: Boolean;
     Name: string;
-    Attributes: TStringListEx;
+    Attributes: TDictionaryStringString;
     SubElements: TListObject; // TListObject<TXmlElement>;
     constructor Create;
@@ -57 +58 @@
 begin
   ShringEmpty := True;
-  Attributes := TStringListEx.Create;
-  Attributes.NameValueSeparator := '=';
+  Attributes := TDictionaryStringString.Create;
   SubElements := TListObject.Create;
   EndTagSymbol := '/';
@@ -82 +82 @@
   AttributesText := '';
   for I := 0 to Attributes.Count - 1 do
-    AttributesText := AttributesText + ' ' + Attributes.Names[I] + '="' + Attributes.ValueFromIndex[I] + '"';
+    AttributesText := AttributesText + ' ' + Attributes.Keys[I] + '="' + Attributes[I].Value + '"';
 
   if Name <> '' then begin
@@ -116 +116 @@
     Name := '?xml';
     EndTagSymbol := '?';
-    Attributes.AddNameValue('version', '1.0');
-    Attributes.AddNameValue('encoding', 'utf-8');
+    Attributes.Add('version', '1.0');
+    Attributes.Add('encoding', 'utf-8');
   end;
   Content := TXmlTag.Create;