paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed readstring from TStringStream (

Browse Source
This commit is contained in:
michael 2003-07-26 16:20:50 +00:00
parent 612a8cbbb1
commit 28ef3fa9d1
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/inc/streams.inc
View File

@ -696,8 +696,8 @@ begin
Result:=Length(FDataString)-FPosition; Result:=Length(FDataString)-FPosition;
If Result>Count then Result:=Count; If Result>Count then Result:=Count;
// This supposes FDataString to be of type AnsiString ! // This supposes FDataString to be of type AnsiString !
Move (Pchar(FDataString)[FPosition],Buffer,Count); Move (Pchar(FDataString)[FPosition],Buffer,Result);
FPosition:=FPosition+Count; FPosition:=FPosition+Result;
end; end;
@ -710,7 +710,6 @@ begin
If NewLen>Count then NewLen:=Count; If NewLen>Count then NewLen:=Count;
SetLength(Result,NewLen); SetLength(Result,NewLen);
Read (Pointer(Result)^,NewLen); Read (Pointer(Result)^,NewLen);
ReadString:='';
end; end;
@ -784,7 +783,13 @@ end;
{ {
$Log$ $Log$
Revision 1.11 2002-12-18 16:45:33 peter Revision 1.13 2003-07-26 16:20:50 michael
+ Fixed readstring from TStringStream (
Revision 1.12 2002/04/25 19:14:13 sg
* Fixed TStringStream.ReadString
Revision 1.11 2002/12/18 16:45:33 peter
* set function result in TStream.Seek(int64) found by Mattias Gaertner * set function result in TStream.Seek(int64) found by Mattias Gaertner
Revision 1.10 2002/12/18 16:35:59 peter Revision 1.10 2002/12/18 16:35:59 peter