[next] [prev] [prev-tail] [tail] [up]

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 (501), Move (536), FillByte (497), FillDWord (500)

Listing: refex/ex25.pp

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 }
    SetLength(S,I);
    Writeln (s,'*');
    end;
end.

[next] [prev] [prev-tail] [front] [up]