strnew.pas

Пример программы для функции StrNew.

Код примера
 {StrNew.PAS}
 
 {Пример программы для функции StrNew }
 
 Uses Strings, WinCrt;
 
 Var P : PChar;
     S : Array [0..79] Of Char;
 
 Begin
  ReadLn(S);
  P:=StrNew(S);
  WriteLn(P);
  StrDispose(P);
 End.

Скачать strnew.pas