blob: 3de3c58df788714e7473ce16617c02c9df47a9fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program ex40;
{ Program to demonstrate the NewStr function }
Uses Objects;
Var S : String;
P : PString;
begin
S:='Some really cute string';
P:=NewStr(S);
If P^<>S then
Writeln ('Oh-oh... Something is wrong !!');
DisposeStr(P);
end.
|
