2.FillChar过程 用指定的值填充相邻的字节 单元 System 原型 procedure FillChar(var X; Count: Integer; Value: Byte); 描述 FillChar 用由Value(Value可以是Byte类型或者Char类型)指定的值填充个数为Count的相邻的字节(被X引用referenced by X)。 警告: 这个函数不执行任何范围检查。 示例 var S: array[0..79] of char; begin { 设置所有的空间 } FillChar(S, SizeOf(S), Ord('''' '''')); end;
3.UpCase 函数 将一个字符转换为大写 单元 System 原型 function UpCase(Ch: Char): Char; 描述 UpCase 将一个字符转换为大写。Ch 是Char类型的表达式。 不在a..z范围内的字符串不受影响。 示例 var S: string; I: Integer; begin { Get string from TEdit control } S := Edit1.Text; for I := 1 to Length(S) do if I mod 2 = 0 then s[I] := UpCase(S[I]; Edit1.Text := S; end;