Delphi 例程 - 字符操纵例程

字符操纵例程：

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;