mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 21:09:31 +02:00
23 lines
374 B
ObjectPascal
23 lines
374 B
ObjectPascal
Program Example70;
|
|
|
|
{ Program to demonstrate the StringToPPchar function. }
|
|
|
|
Uses UnixUtil;
|
|
|
|
Var S : String;
|
|
P : PPChar;
|
|
I : longint;
|
|
|
|
begin
|
|
// remark whitespace at end.
|
|
S:='This is a string with words. ';
|
|
P:=StringToPPChar(S,0);
|
|
I:=0;
|
|
While P[i]<>Nil do
|
|
begin
|
|
Writeln('Word ',i,' : ',P[i]);
|
|
Inc(I);
|
|
end;
|
|
FreeMem(P,i*SizeOf(Pchar));
|
|
end.
|