Правила форума
StrLCat.PASЯзык:
Русский
English
{ Пример программы для функции StrLCat }
uses Strings, Crt;
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.
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.
::
::
::
