StrECopy.PAS

Language:
Русский
English

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

  uses Strings, WinCrt;

 const
   Turbo: PChar = 'Turbo';
   Pascal: PChar = 'Pascal';
 var
   S: array[0..15] of Char;
 begin
   StrECopy(StrECopy(StrECopy(S, Turbo), ' '), Pascal);
   Writeln(S);
 end.

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