Правила форума
Fillchar.PASLanguage:
Русский
English
{Fillchar.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the FillChar procedure.}
var
S: string[80];
begin
{ Set a string to all spaces }
FillChar(S, SizeOf(S), ' ');
S[0] := #80; { Set length byte }
end.
::
::
::
