Язык:
Русский
English
{ Пример программы для функции StrLCopy }
uses Strings, Crt;
var
S : array[0 .. 9] of Char;
begin
StrLCopy(S, 'Turbo Pascal', SizeOf(S) - 1);
WriteLn(S);
end.
var
S : array[0 .. 9] of Char;
begin
StrLCopy(S, 'Turbo Pascal', SizeOf(S) - 1);
WriteLn(S);
end.