Модуль: SysUtils

Описание
Функция копирует MaxLen символов из длинной строки Source в длинную строку Dest. Если количество символов исходной строки меньше значения MaxLen, то функция копирует всю строку целиком.

Пример
var
   S: PChar;
begin
   StrLCopy( S, 'Спортсмен', 5);       { S := 'Спорт' }
   ...
end;