Changeset 31 for MemoryStreamEx/UMemoryStreamEx.pas
- Timestamp:
- Jun 24, 2010, 4:18:03 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
MemoryStreamEx/UMemoryStreamEx.pas
r26 r31 85 85 if Position >= Size then Break; 86 86 Data := Chr(ReadByte); 87 if Data <> Terminator[I] then Result := Result + Data 88 else Inc(I); 87 if Data <> Terminator[I] then begin 88 Result := Result + Data; 89 I := 1; 90 end else Inc(I); 89 91 until I > Length(Terminator); 90 92 if not (I > Length(Terminator)) then begin
Note:
See TracChangeset
for help on using the changeset viewer.