Правила форума
StrNew.PASЯзык:
Русский
English
{ Пример программы для функций StrNew и StrDispose }
uses Strings, Crt;
var
P : PChar;
S : array[0 .. 79] of Char;
begin
ReadLn(S);
P := StrNew(S);
WriteLn(P);
StrDispose(P);
end.
var
P : PChar;
S : array[0 .. 79] of Char;
begin
ReadLn(S);
P := StrNew(S);
WriteLn(P);
StrDispose(P);
end.
::
::
::
