FillChar

System单元的FillChar过程用来把指定内存段中的所有字节赋为相同的值，它通常用来清空数据。FillChar的格式是FillChar(var X; Count: Word; Value)，X是指定的内存段，如数组变量，Count是内存段的大小，即字节数，Value是填充的值，可以是Byte、Char或Boolean等单字节类型的值。如果你要把元素类型为Shortint、Integer或Longint的数组清空为0，可以把Value设为0，如果要全部元素赋为-1，可以把Value设为255。下面是一个简单的样例：

var
P: array[0..999] of Longint;

begin
FillChar(P, SizeOf(P), 255);
Writeln(P[999]);
en

例：
APoint           : array[0..21] of Byte;

FillChar(APoint[0],SizeOf(APoint),4);//从APoint[0]开始、填充SizeOf(APoint)个长度，全部为4