Changeset 100 for trunk/Application


Ignore:
Timestamp:
Oct 2, 2012, 2:52:20 PM (12 years ago)
Author:
chronos
Message:
  • Upraveno: V balíčku CoolWeb některé seznamy změněny z typu TStringList na TListString.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Application/UWebObjects.pas

    r71 r100  
    66
    77uses
    8   Classes, SysUtils, UHtmlClasses, UXmlClasses, SpecializedList;
     8  Classes, SysUtils, UHtmlClasses, UXmlClasses, SpecializedList, SpecializedDictionary;
    99
    1010type
     
    4747    Title: string;
    4848    Rows: TQueryFormItemList;
    49     procedure Load(Items: TStringList);
     49    procedure Load(Items: TDictionaryStringString);
    5050    function AddNewItem: TQueryFormItem;
    5151    constructor Create;
     
    6868    function AddNewGroup: TQueryFormGroup;
    6969    function AddNewAction: TQueryAction;
    70     procedure Load(Items: TStringList);
     70    procedure Load(Items: TDictionaryStringString);
    7171    constructor Create;
    7272    destructor Destroy; override;
     
    197197end;
    198198
    199 procedure TQueryForm.Load(Items: TStringList);
     199procedure TQueryForm.Load(Items: TDictionaryStringString);
    200200var
    201201  I: Integer;
     
    223223{ TQueryFormGroup }
    224224
    225 procedure TQueryFormGroup.Load(Items: TStringList);
     225procedure TQueryFormGroup.Load(Items: TDictionaryStringString);
    226226var
    227227  I: Integer;
     
    229229  for I := 0 to Rows.Count - 1 do
    230230  with TQueryFormItem(Rows[I]) do begin
    231     if Items.IndexOfName(Value.ItemName) <> -1 then
     231    if Items.SearchKey(Value.ItemName) <> -1 then
    232232      Value.Value := Items.Values[Value.ItemName];
    233233  end;
Note: See TracChangeset for help on using the changeset viewer.