blob: f6b20c23309550b7a344c5a74eff88d9cee6e507 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Program Example51;
{ Program to demonstrate the StringToPPChar function. }
Uses oldlinux;
var P : PPChar;
S : String;
begin
S:='/bin/ls -l -F';
P:=StringToPPChar(S);
Writeln ('Name : ',p^); inc(longint(p),4);
writeln ('Option 1 : ',p^); inc(longint(p),4);
writeln ('Option 2 : ',p^);
end.
|
