mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 03:53:45 +02:00
17 lines
347 B
ObjectPascal
17 lines
347 B
ObjectPascal
Program Example51;
|
|
|
|
{ Program to demonstrate the StringToPPChar function.
|
|
This function is pretty obsolete }
|
|
|
|
Uses UnixUtil;
|
|
|
|
var P : PPChar;
|
|
S : String;
|
|
begin
|
|
S:='/bin/ls -l -F';
|
|
P:=StringToPPChar(S,0);
|
|
Writeln ('Name : ',p^); inc(longint(p),4);
|
|
writeln ('Option 1 : ',p^); inc(longint(p),4);
|
|
writeln ('Option 2 : ',p^);
|
|
end.
|