blob: f94bf52cf6203262fd297e7898ca967f9e739905 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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.
|
