随笔 - 2146  文章 - 97 评论 - 11760 trackbacks - 253

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

posted on 2008-03-29 22:36 万一 阅读(...) 评论(...) 编辑 收藏