Changeset 100 for trunk/Modules/User/UUserControlPage.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/Modules/User/UUserControlPage.pas (modified) (3 diffs)

trunk/Modules/User/UUserControlPage.pas

@@ -90 +90 @@
       end;
     end;
-    if HandlerData.Request.Post.IndexOfName('Login') <> -1 then begin
+    if HandlerData.Request.Post.SearchKey('Login') <> -1 then begin
       Form.Load(HandlerData.Request.Post);
       with THtmlString(SubItems.AddNew(THtmlString.Create)) do
@@ -150 +150 @@
       end;
     end;
-    if HandlerData.Request.Post.IndexOfName('Register') <> -1 then
+    if HandlerData.Request.Post.SearchKey('Register') <> -1 then
     with HandlerData.Request do begin
       Form.Load(HandlerData.Request.Post);
@@ -222 +222 @@
       end;
     end;
-    if HandlerData.Request.Post.IndexOfName('Save') <> -1 then
+    if HandlerData.Request.Post.SearchKey('Save') <> -1 then
     with HandlerData.Request do begin
       Form.Load(HandlerData.Request.Post);