Changeset 36 for trunk/Common/UHtmlClasses.pas

Timestamp:

Oct 29, 2010, 10:44:13 PM (14 years ago)

Author:

george

Message:

• Přidáno: Neodokončená třída TPageList a TQueryString.
• Přidáno: Částečná podpora pro přihlašování uživatelů.

File:

• trunk/Common/UHtmlClasses.pas (modified) (2 diffs)

trunk/Common/UHtmlClasses.pas

@@ -140 +140 @@
     Scripts: TStringList;
     property AsXmlDocument: TXmlDocument read GetAsXmlDocument;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TQueryString }
+
+  TQueryString = class
+    Data: TStringList;
+    procedure SetStringServer;
+    procedure SetString(QueryString: string);
+    function GetString: string;
     constructor Create;
     destructor Destroy; override;
@@ -560 +571 @@
 end;
 
+procedure TQueryString.SetStringServer;
+begin
+  //$this->SetString($_SERVER['QUERY_STRING']);
+end;
+
+procedure TQueryString.SetString(QueryString: string);
+begin
+  (*
+  $this->Data = array();
+  $Parts = explode('&', $QueryString);
+  foreach($Parts as $Part)
+  {
+    if($Part != '')
+    {
+      $Item = explode('=', $Part);
+      $this->Data[$Item[0]] = $Item[1];
+    end;
+  end;*)
+end;
+
+function TQueryString.GetString: string;
+begin
+  (*$Parts = array();
+  foreach($this->Data as $Index => $Item)
+  {
+    $Parts[] = $Index.'='.$Item;
+  }
+  return(implode('&', $Parts));*)
+end;
+
+constructor TQueryString.Create;
+begin
+  Data := TStringList.Create;
+end;
+
+destructor TQueryString.Destroy;
+begin
+  Data.Free;
+  inherited Destroy;
+end;
+
 end.