Changeset 151 for trunk/Packages/CoolWeb/Common
- Timestamp:
- Feb 4, 2024, 3:53:52 PM (11 months ago)
- Location:
- trunk/Packages/CoolWeb/Common
- Files:
-
- 5 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CoolWeb/Common/HtmlClasses.pas
r150 r151 1 unit UHtmlClasses;1 unit HtmlClasses; 2 2 3 3 interface 4 4 5 5 uses 6 UXmlClasses, Classes, SysUtils, Generics.Collections, Generics, UIpAddress;6 XmlClasses, Classes, SysUtils, Generics.Collections, Generics, IpAddress; 7 7 8 8 type … … 742 742 procedure TQueryString.SetStringServer; 743 743 begin 744 // $this->SetString($_SERVER['QUERY_STRING']);744 // SetString($_SERVER['QUERY_STRING']); 745 745 end; 746 746 … … 762 762 function TQueryString.GetString: string; 763 763 begin 764 (*$Parts = array(); 764 (* 765 Parts = array(); 765 766 foreach($this->Data as $Index => $Item) 766 767 { -
trunk/Packages/CoolWeb/Common/IpAddress.pas
r150 r151 1 unit UIpAddress;1 unit IpAddress; 2 2 3 3 interface -
trunk/Packages/CoolWeb/Common/MIMEType.pas
r150 r151 1 unit UMIMEType;1 unit MIMEType; 2 2 3 3 interface -
trunk/Packages/CoolWeb/Common/MemoryStreamEx.pas
r150 r151 1 unit UMemoryStreamEx;1 unit MemoryStreamEx; 2 2 3 3 interface … … 23 23 procedure WriteString(Data: string); 24 24 procedure WriteShortString(Data: ShortString); 25 procedure WriteAnsiString( Data: string);25 procedure WriteAnsiString(const Data: string); override; 26 26 procedure WriteUnixTime(Data: TDateTime); 27 27 procedure WriteDouble(Value: Double); … … 234 234 end; 235 235 236 procedure TMemoryStreamEx.WriteAnsiString( Data: string);236 procedure TMemoryStreamEx.WriteAnsiString(const Data: string); 237 237 var 238 238 StringLength: Longint; -
trunk/Packages/CoolWeb/Common/XmlClasses.pas
r150 r151 1 unit UXmlClasses;1 unit XmlClasses; 2 2 3 3 interface
Note:
See TracChangeset
for help on using the changeset viewer.