Changeset 100 for trunk/Application/UWebObjects.pas

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:

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

trunk/Application/UWebObjects.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UHtmlClasses, UXmlClasses, SpecializedList;
+  Classes, SysUtils, UHtmlClasses, UXmlClasses, SpecializedList, SpecializedDictionary;
 
 type
@@ -47 +47 @@
     Title: string;
     Rows: TQueryFormItemList;
-    procedure Load(Items: TStringList);
+    procedure Load(Items: TDictionaryStringString);
     function AddNewItem: TQueryFormItem;
     constructor Create;
@@ -68 +68 @@
     function AddNewGroup: TQueryFormGroup;
     function AddNewAction: TQueryAction;
-    procedure Load(Items: TStringList);
+    procedure Load(Items: TDictionaryStringString);
     constructor Create;
     destructor Destroy; override;
@@ -197 +197 @@
 end;
 
-procedure TQueryForm.Load(Items: TStringList);
+procedure TQueryForm.Load(Items: TDictionaryStringString);
 var
   I: Integer;
@@ -223 +223 @@
 { TQueryFormGroup }
 
-procedure TQueryFormGroup.Load(Items: TStringList);
+procedure TQueryFormGroup.Load(Items: TDictionaryStringString);
 var
   I: Integer;
@@ -229 +229 @@
   for I := 0 to Rows.Count - 1 do
   with TQueryFormItem(Rows[I]) do begin
-    if Items.IndexOfName(Value.ItemName) <> -1 then
+    if Items.SearchKey(Value.ItemName) <> -1 then
       Value.Value := Items.Values[Value.ItemName];
   end;