StrCat.PAS

Язык:
Русский
English


 { Пример программы для функции StrCat }

uses Strings, Crt;

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+
Код для вставки: :: :: :: ::
Поделиться: // //