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