blob: b9ce0ccbb657809d24eeebd909b15332d8e46fbc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Program Example5;
Uses strings;
{ Program to demonstrate the StrLCopy function. }
Const P : PCHar = '123456789ABCDEF';
var PP : PCHar;
begin
PP:=StrAlloc(11);
Writeln ('First 10 characters of P : ',StrLCopy (PP,P,10));
StrDispose(PP);
end.
|
