[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]