StrNew.PAS

Language:
Русский
English

  {StrNew.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the StrNew function.}

  uses Strings, WinCrt;

 var
   P: PChar;
   S: array[0..79] of Char;
 begin
   Readln(S);
   P := StrNew(S);
   Writeln(P);
   StrDispose(P);
 end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //