Patch for procedure LoadObjectFromStream() from Martin Smat.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@39 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2006-11-25 15:42:41 +00:00
parent f361493ed0
commit 78de51ca7f

View File

@ -556,7 +556,7 @@ Begin
Result := CreateObjBuffer(TDataType(i),s);
Case TDataType(i) Of
dtInt8S : Result^.Int8S := AStoreRdr.ReadInt8S();
dtInt8U : Result^.Int8S := AStoreRdr.ReadInt8U();
dtInt8U : Result^.Int8U := AStoreRdr.ReadInt8U();
dtInt16U : Result^.Int16U := AStoreRdr.ReadInt16U();
dtInt16S : Result^.Int16S := AStoreRdr.ReadInt16S();
dtInt32U : Result^.Int32U := AStoreRdr.ReadInt32U();