StrCat.PAS

Language:
Русский
English

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

  uses Strings, WinCrt;

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

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