paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch for procedure LoadObjectFromStream() from Martin Smat.

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/base_binary_formatter.pas
View File

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