Language:
Русский
English
{StrLCat.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the StrLCat function.}
uses Strings, WinCrt;
var
S: array[0..9] of Char;
begin
StrLCopy(S, 'Turbo', SizeOf(S) - 1)
StrLCat(S, ' ', SizeOf(S) - 1);
StrLCat(S, 'Pascal', SizeOf(S) - 1);
Writeln(S);
end.