Ignore:
Timestamp:
Feb 4, 2024, 3:53:52 PM (9 months ago)
Author:
chronos
Message:
Location:
trunk/Packages/CoolWeb/Common
Files:
5 moved

Legend:

Unmodified
Added
Removed

  • trunk/Packages/CoolWeb/Common/HtmlClasses.pas

    r150 r151  
    1 unit UHtmlClasses;
     1unit HtmlClasses;
    22
    33interface
    44
    55uses
    6   UXmlClasses, Classes, SysUtils, Generics.Collections, Generics, UIpAddress;
     6  XmlClasses, Classes, SysUtils, Generics.Collections, Generics, IpAddress;
    77
    88type
    … …  
    742742procedure TQueryString.SetStringServer;
    743743begin
    744   //$this->SetString($_SERVER['QUERY_STRING']);
     744  // SetString($_SERVER['QUERY_STRING']);
    745745end;
    746746
    … …  
    762762function TQueryString.GetString: string;
    763763begin
    764   (*$Parts = array();
     764  (*
     765  Parts = array();
    765766  foreach($this->Data as $Index => $Item)
    766767  {

  • trunk/Packages/CoolWeb/Common/IpAddress.pas

    r150 r151  
    1 unit UIpAddress;
     1unit IpAddress;
    22
    33interface

  • trunk/Packages/CoolWeb/Common/MIMEType.pas

    r150 r151  
    1 unit UMIMEType;
     1unit MIMEType;
    22
    33interface

  • trunk/Packages/CoolWeb/Common/MemoryStreamEx.pas

    r150 r151  
    1 unit UMemoryStreamEx;
     1unit MemoryStreamEx;
    22
    33interface
    … …  
    2323    procedure WriteString(Data: string);
    2424    procedure WriteShortString(Data: ShortString);
    25     procedure WriteAnsiString(Data: string);
     25    procedure WriteAnsiString(const Data: string); override;
    2626    procedure WriteUnixTime(Data: TDateTime);
    2727    procedure WriteDouble(Value: Double);
    … …  
    234234end;
    235235
    236 procedure TMemoryStreamEx.WriteAnsiString(Data: string);
     236procedure TMemoryStreamEx.WriteAnsiString(const Data: string);
    237237var
    238238  StringLength: Longint;

  • trunk/Packages/CoolWeb/Common/XmlClasses.pas

    r150 r151  
    1 unit UXmlClasses;
     1unit XmlClasses;
    22
    33interface
Note: See TracChangeset for help on using the changeset viewer.