Fillchar

Declaration:

Procedure Fillchar (Var X;Count : Longint;Value : char or byte); ;

Description:

Fillchar fills the memory starting at X with Count bytes or characters with value equal to Value.

Errors:

No checking on the size of X is done.

See also:

Fillword, Move

Example

Program Example25;

{ Program to demonstrate the FillChar function. }

Var S : String[10];
    I : Byte;
begin
  For i:=10 downto 0 do
    begin
    { Fill S with i spaces }
    FillChar (S,SizeOf(S),' ');
    { Set Length }
    S[0]:=chr(i);
    Writeln (s,'*');
    end;
end.