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 单元下的公用函数目录

---