blob: cde5b592f53e8c43fac2fddb5106b3f5aee9cd7b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example63;
{ This program demonstrates the AssignStr function }
{$H+}
Uses sysutils;
Var P : PString;
Begin
P:=NewStr('A first AnsiString');
Writeln ('Before: P = "',P^,'"');
AssignStr(P,'A Second ansistring');
Writeln ('After : P = "',P^,'"');
DisposeStr(P);
End.
|
