mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-07 05:33:22 +02:00
16 lines
281 B
ObjectPascal
16 lines
281 B
ObjectPascal
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. |