paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-27 01:43:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed Stream.ReadAnsiString

Browse Source
This commit is contained in:
michael 1999-02-06 07:16:48 +00:00
parent 34e51084a7
commit a2e7fcbbd2
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fcl/inc/streams.inc
View File

@ -227,11 +227,11 @@
begin
ReadBuffer (TheSize,SizeOf(TheSize));
//!! SetLength(Result,Size);
//!! Illegal typecast if no AnsiStrings defined.
//!! ReadBuffer (Pointer (Result^),Size);
//!! P:=Pointer(Result^)+Size;
//!! p^:=0;
SetLength(Result,Size);
// Illegal typecast if no AnsiStrings defined.
ReadBuffer (Pointer(Result)^,Size);
P:=Pointer(Result)+Size;
p^:=0;
end;
Procedure TStream.WriteAnsiString (S : String);
@ -241,7 +241,7 @@
begin
L:=Length(S);
WriteBuffer (L,SizeOf(L));
//!! WriteBuffer (Pointer(S)^,L);
WriteBuffer (Pointer(S)^,L);
end;
procedure TStream.WriteByte(b : Byte);
@ -613,7 +613,10 @@ end;
{
$Log$
Revision 1.10 1999-02-02 21:23:19 michael
Revision 1.11 1999-02-06 07:16:48 michael
+ Fixed Stream.ReadAnsiString
Revision 1.10 1999/02/02 21:23:19 michael
+ only sysutils is used now
Revision 1.9 1999/01/28 23:55:42 florian