fpcdocs/stringex/ex17.pp


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

Program Example17;

Uses strings;

{ Program to demonstrate the StrDispose function. }

Const P1 : PChar = 'This is a PChar string';

var P2 : PChar;

begin
  P2:=StrNew (P1);
  Writeln ('P2 : ',P2);
  StrDispose(P2);
end.