Changeset 376 for Network/CoolWeb/Common/UMemoryStreamEx.pas

Timestamp:

Jun 18, 2012, 10:42:17 PM (12 years ago)

Author:

chronos

Message:

• Modified: QueryParts renamed to Path as TListString type.

File:

• Network/CoolWeb/Common/UMemoryStreamEx.pas (modified) (2 diffs)

Network/CoolWeb/Common/UMemoryStreamEx.pas

@@ -46 +46 @@
     function Sum: Byte;
     procedure FillByte(Data: Byte; Count: Integer);
+    procedure Assign(Source: TMemoryStreamEx);
     constructor Create;
     property Endianness: TEndianness read FEndianness write SetEndianness;
@@ -204 +205 @@
 end;
 
+procedure TMemoryStreamEx.Assign(Source: TMemoryStreamEx);
+var
+  OldPosition: Int64;
+begin
+  FEndianness := Source.FEndianness;
+  SwapData := Source.SwapData;
+  OldPosition := Source.Position;
+  Clear;
+  Source.Position := 0;
+  CopyFrom(Source, Source.Size);
+  Position := OldPosition;
+  Source.Position := OldPosition;
+end;
+
 function TMemoryStreamEx.ReadWord: Word;
 begin