Правила форума
StrCat.PASLanguage:
Русский
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.
::
::
::
