字符操纵例程:
1.Chr函数 返回指定的ASCII码的字符 单元 System 原型 function Chr(X: Byte): Char; 描述 Chr返回字节类型表达式X的顺序值(ASCII值) 示例 key = Chr(VK_Back);//VK_Back = 8 相应于 Key = #8;
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;
|