System.FillChar - 填充字节

举例:

---

var
  s: array[0..9] of Char;
begin
  FillChar(s,SizeOf(s),'a');
  ShowMessage(s); {aaaaaaaaaa}
end;


var
  arr: array[0..3] of Word;
  i: Integer;
begin
  FillChar(arr, Length(arr) * SizeOf(Word), 1);

  {每个字节填充个 1 ; 现在每个 Word 的二进制是: 00000001 00000001}
  for i := 0 to 3 do
    ShowMessage(IntToStr(arr[i])); {结果是: 257、257、257、257}
end;

System 单元下的公用函数目录

---