strlcat.pas

 {StrLCat.PAS}
 
 
 { Пример программы для функции StrLCat }
 
 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.