Changeset 65 for trunk/Application/UWebObjects.pas

Timestamp:

Dec 19, 2011, 3:48:33 PM (13 years ago)

Author:

chronos

Message:

• Přidáno: Třídy pro modelování HTML tabulky.

File:

• trunk/Application/UWebObjects.pas (modified) (2 diffs)

trunk/Application/UWebObjects.pas

@@ -94 +94 @@
   with TXmlTag(Result).SubElements do begin
     for G := 0 to Groups.Count - 1 do
-    with TQueryFormGroup(Groups[G]) do
-    begin
-      with TXmlString(Items[Add(TXmlString.Create)]) do begin
+    with TQueryFormGroup(Groups[G]) do begin
+      with TXmlString(AddNew(TXmlString.Create)) do begin
         Text := Title;
       end;
@@ -104 +103 @@
       for I := 0 to Rows.Count - 1 do
       with TQueryFormItem(Rows[I]) do begin
-        with TXmlString(Items[Add(TXmlString.Create)]) do begin
+        with TXmlString(AddNew(TXmlString.Create)) do begin
           Text := Caption + ': ';
         end;