paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 00:07:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ SetStr() function

Browse Source
This commit is contained in:
peter 1999-02-25 21:25:26 +00:00
parent c8f444b65f
commit 1d98d7c4a4
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/objects.pp
View File

@ -628,6 +628,9 @@ Disposes of a PString allocated by the function NewStr.
---------------------------------------------------------------------}
PROCEDURE DisposeStr (P: PString);
PROCEDURE SetStr(VAR p:pString; CONST s:STRING);
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{ STREAM INTERFACE ROUTINES }
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
@ -2684,6 +2687,16 @@ BEGIN
If (P <> Nil) Then FreeMem(P, Length(P^) + 1); { Release memory }
END;
PROCEDURE SetStr(VAR p:pString; CONST s:STRING);
BEGIN
IF p<>NIL THEN
FreeMem(P, Length(P^) + 1);
GetMem(p,LENGTH(s)+1);
pSTRING(p)^ := s
END;
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{ STREAM INTERFACE ROUTINES }
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
@ -2744,7 +2757,10 @@ END;
END.
{
$Log$
Revision 1.27 1999-02-22 15:04:45 peter
Revision 1.28 1999-02-25 21:25:26 peter
+ SetStr() function
Revision 1.27 1999/02/22 15:04:45 peter
* fixed typecasting in firstthat
Revision 1.26 1999/02/21 23:13:01 florian