字符操纵例程：
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;
