说明: FillChar过程 SysUtils procedure FillChar(var X; Count: Integer; Value: Byte); FillChar在变量X指向的地址空间连续填充Count个字节,填充值由Value参数给定,Value的类型可以是Byte或Char类型。 var S: Array[0..79] of Char; begin {set of all spaces} FileChar(S, SizeOf(S), ’’);
<loveni1314> 上传 | 大小:448kb