Changeset 151 for trunk/Packages/CoolWeb/Common

Timestamp:

Feb 4, 2024, 3:53:52 PM (5 months ago)

Author:

chronos

Message:

• Modified: Units in CoolWeb and ModularSystem packages renamed to not use U prefix in name.

Location:

trunk/Packages/CoolWeb/Common

Files:

• HtmlClasses.pas (moved) (moved from trunk/Packages/CoolWeb/Common/UHtmlClasses.pas ) (3 diffs)
• IpAddress.pas (moved) (moved from trunk/Packages/CoolWeb/Common/UIpAddress.pas ) (1 diff)
• MIMEType.pas (moved) (moved from trunk/Packages/CoolWeb/Common/UMIMEType.pas ) (1 diff)
• MemoryStreamEx.pas (moved) (moved from trunk/Packages/CoolWeb/Common/UMemoryStreamEx.pas ) (3 diffs)
• XmlClasses.pas (moved) (moved from trunk/Packages/CoolWeb/Common/UXmlClasses.pas ) (1 diff)

trunk/Packages/CoolWeb/Common/HtmlClasses.pas

@@ -1 @@
-unit UHtmlClasses;
+unit HtmlClasses;
 
 interface
 
 uses
-  UXmlClasses, Classes, SysUtils, Generics.Collections, Generics, UIpAddress;
+  XmlClasses, Classes, SysUtils, Generics.Collections, Generics, IpAddress;
 
 type
@@ -742 +742 @@
 procedure TQueryString.SetStringServer;
 begin
-  //$this->SetString($_SERVER['QUERY_STRING']);
+  // SetString($_SERVER['QUERY_STRING']);
 end;
 
@@ -762 +762 @@
 function TQueryString.GetString: string;
 begin
-  (*$Parts = array();
+  (*
+  Parts = array();
   foreach($this->Data as $Index => $Item)
   {

trunk/Packages/CoolWeb/Common/IpAddress.pas

@@ -1 @@
-unit UIpAddress;
+unit IpAddress;
 
 interface

trunk/Packages/CoolWeb/Common/MIMEType.pas

@@ -1 @@
-unit UMIMEType;
+unit MIMEType;
 
 interface

trunk/Packages/CoolWeb/Common/MemoryStreamEx.pas

@@ -1 @@
-unit UMemoryStreamEx;
+unit MemoryStreamEx;
 
 interface
@@ -23 +23 @@
     procedure WriteString(Data: string);
     procedure WriteShortString(Data: ShortString);
-    procedure WriteAnsiString(Data: string);
+    procedure WriteAnsiString(const Data: string); override;
     procedure WriteUnixTime(Data: TDateTime);
     procedure WriteDouble(Value: Double);
@@ -234 +234 @@
 end;
 
-procedure TMemoryStreamEx.WriteAnsiString(Data: string);
+procedure TMemoryStreamEx.WriteAnsiString(const Data: string);
 var
   StringLength: Longint;

trunk/Packages/CoolWeb/Common/XmlClasses.pas

@@ -1 @@
-unit UXmlClasses;
+unit XmlClasses;
 
 interface