Changeset 91 for branches/DirectWeb/UXMLClasses.pas

Timestamp:

Dec 21, 2009, 1:19:39 PM (15 years ago)

Author:

george

Message:

• Upraveno: Třída TWebServer oddělena do samostatné jednotky.

File:

• branches/DirectWeb/UXMLClasses.pas (modified) (4 diffs)

branches/DirectWeb/UXMLClasses.pas

@@ -70 +70 @@
   I: Integer;
 begin
-  Attributes.Free;
-  for I := 0 to SubElements.Count - 1 do TXmlElement(SubElements[I]).Free;
-  SubElements.Free;
+  Attributes.Destroy;
+  for I := 0 to SubElements.Count - 1 do
+    TXmlElement(SubElements[I]).Destroy;
+  SubElements.Destroy;
   inherited;
 end;
@@ -116 +117 @@
 begin
   inherited;
-  Encoding := 'windows-1250';
+  Encoding := 'utf-8';
   XmlVersion := '1.0';
   MainTag := TXmlTag.Create;
@@ -123 +124 @@
     EndTagSymbol := '?';
     Attributes.Add('version=1.0');
-    Attributes.Add('encoding=windows-1250');
+    Attributes.Add('encoding=utf-8');
   end;
   Content := TXmlTag.Create;
@@ -130 +131 @@
 destructor TXmlDocument.Destroy;
 begin
-  Content.Free;
-  MainTag.Free;
+  Content.Destroy;
+  MainTag.Destroy;
   inherited;
 end;