mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 17:31:42 +01: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. |