Changeset 100 for trunk/Modules

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.

Location:

trunk/Modules

Files:

• TV/UPageTV.pas (modified) (1 diff)
• User/UUserControlPage.pas (modified) (3 diffs)
• ZdechovNET/UWebCamPage.pas (modified) (1 diff)

trunk/Modules/TV/UPageTV.pas

@@ -108 +108 @@
 
       Text := '#EXTM3U' + LineEnding;
-      if Request.Query.IndexOf('id') <> -1 then begin
+      if Request.Query.SearchKey('id') <> -1 then begin
         Database.Select(DbRows, 'TV', '*', ' (`Stream` <> "") AND (`ShortName`="' + Database.EscapeString(Request.Query.Values['id']) + '") ');
         if DbRows.Count > 0 then begin

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);

trunk/Modules/ZdechovNET/UWebCamPage.pas

@@ -54 +54 @@
       //HandlerData.Request.Query.Values['W'] := 'dsd';
       //HandlerData.Request.Query.Values['H'] := 'dsd';
-      if HandlerData.Request.Query.IndexOfName('Id') = -1 then CameraId := -1
+      if HandlerData.Request.Query.SearchKey('Id') = -1 then CameraId := -1
         else CameraId := StrToInt(HandlerData.Request.Query.Values['Id']);
-      if (HandlerData.Request.Query.IndexOfName('W') = -1) then begin
+      if (HandlerData.Request.Query.SearchKey('W') = -1) then begin
         ImageWidth := 640;
       end else begin