Changeset 65 for trunk/Application


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Application/UWebObjects.pas

    r48 r65  
    9494  with TXmlTag(Result).SubElements do begin
    9595    for G := 0 to Groups.Count - 1 do
    96     with TQueryFormGroup(Groups[G]) do
    97     begin
    98       with TXmlString(Items[Add(TXmlString.Create)]) do begin
     96    with TQueryFormGroup(Groups[G]) do begin
     97      with TXmlString(AddNew(TXmlString.Create)) do begin
    9998        Text := Title;
    10099      end;
     
    104103      for I := 0 to Rows.Count - 1 do
    105104      with TQueryFormItem(Rows[I]) do begin
    106         with TXmlString(Items[Add(TXmlString.Create)]) do begin
     105        with TXmlString(AddNew(TXmlString.Create)) do begin
    107106          Text := Caption + ': ';
    108107        end;
Note: See TracChangeset for help on using the changeset viewer.