mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 09:32:00 +01:00
15 lines
195 B
ObjectPascal
15 lines
195 B
ObjectPascal
Program Example3;
|
|
|
|
Uses strings;
|
|
|
|
{ Program to demonstrate the StrPas function. }
|
|
|
|
Const P : PChar = 'This is a PCHAR string';
|
|
|
|
var S : string;
|
|
|
|
begin
|
|
S:=StrPas (P);
|
|
Writeln ('S : ',S);
|
|
end.
|