fpcdocs/stringex/ex3.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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.