作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

字符操纵例程：

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;

相关软件：