diff --git a/general/sdStreams.pas b/general/sdStreams.pas index 5623768..6219e34 100644 --- a/general/sdStreams.pas +++ b/general/sdStreams.pas @@ -138,7 +138,7 @@ function TsdFastMemStream.Read(var Buffer; Count: Integer): Longint; begin if Result > Count then Result := Count; - Move(Pointer(Longint(FMemory) + FPosition)^, Buffer, Result); + Move(Pointer(PByte(FMemory) + FPosition)^, Buffer, Result); Inc(FPosition, Result); Exit; end; @@ -215,7 +215,7 @@ function TsdFastMemStream.Write(const Buffer; Count: Integer): Longint; SetCapacity(NewPos); FSize := NewPos; end; - System.Move(Buffer, Pointer(Longint(FMemory) + FPosition)^, Count); + System.Move(Buffer, Pointer(PByte(FMemory) + FPosition)^, Count); FPosition := NewPos; Result := Count; Exit;