Changeset 100 for trunk/Application
- Timestamp:
- Oct 2, 2012, 2:52:20 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/UWebObjects.pas
r71 r100 6 6 7 7 uses 8 Classes, SysUtils, UHtmlClasses, UXmlClasses, SpecializedList ;8 Classes, SysUtils, UHtmlClasses, UXmlClasses, SpecializedList, SpecializedDictionary; 9 9 10 10 type … … 47 47 Title: string; 48 48 Rows: TQueryFormItemList; 49 procedure Load(Items: T StringList);49 procedure Load(Items: TDictionaryStringString); 50 50 function AddNewItem: TQueryFormItem; 51 51 constructor Create; … … 68 68 function AddNewGroup: TQueryFormGroup; 69 69 function AddNewAction: TQueryAction; 70 procedure Load(Items: T StringList);70 procedure Load(Items: TDictionaryStringString); 71 71 constructor Create; 72 72 destructor Destroy; override; … … 197 197 end; 198 198 199 procedure TQueryForm.Load(Items: T StringList);199 procedure TQueryForm.Load(Items: TDictionaryStringString); 200 200 var 201 201 I: Integer; … … 223 223 { TQueryFormGroup } 224 224 225 procedure TQueryFormGroup.Load(Items: T StringList);225 procedure TQueryFormGroup.Load(Items: TDictionaryStringString); 226 226 var 227 227 I: Integer; … … 229 229 for I := 0 to Rows.Count - 1 do 230 230 with TQueryFormItem(Rows[I]) do begin 231 if Items. IndexOfName(Value.ItemName) <> -1 then231 if Items.SearchKey(Value.ItemName) <> -1 then 232 232 Value.Value := Items.Values[Value.ItemName]; 233 233 end;
Note:
See TracChangeset
for help on using the changeset viewer.