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