Changeset 31 for MemoryStreamEx/UMemoryStreamEx.pas

Timestamp:

Jun 24, 2010, 4:18:03 PM (14 years ago)

Author:

george

Message:

• Opravy a rozšíření funkčností některých tříd

File:

• MemoryStreamEx/UMemoryStreamEx.pas (modified) (1 diff)

MemoryStreamEx/UMemoryStreamEx.pas

@@ -85 +85 @@
     if Position >= Size then Break;
     Data := Chr(ReadByte);
-    if Data <> Terminator[I] then Result := Result + Data
-      else Inc(I);
+    if Data <> Terminator[I] then begin
+      Result := Result + Data;
+      I := 1;
+    end else Inc(I);
   until I > Length(Terminator);
   if not (I > Length(Terminator)) then begin