[Overview][Procedures and functions][Index] |
Concatenate 2 null-terminated strings, with length boundary.
Source position: strings.pp line 64
function strlcat( |
dest: pchar; |
source: pchar; |
l: SizeInt |
):pchar; |
Adds L characters from Source to Dest, and adds a terminating null-character. Returns Dest.
None.
|
Concatenate 2 null-terminated strings. |
Program Example12; Uses strings; { Program to demonstrate the StrLCat function. } Const P1 : PChar = '1234567890'; Var P2 : PChar; begin P2:=StrAlloc (StrLen(P1)*2+1); P2^:=#0; { Zero length } StrCat (P2,P1); StrLCat (P2,P1,5); Writeln ('P2 = ',P2); StrDispose(P2) end.