Changeset 151 for trunk/Packages/CoolWeb/Common/MemoryStreamEx.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Packages/CoolWeb/Common/MemoryStreamEx.pas (moved) (moved from trunk/Packages/CoolWeb/Common/UMemoryStreamEx.pas ) (3 diffs)

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;