——此文章摘自《Delphi开发经验技巧宝典》定价
￥
特价
￥
购买>>http://track
linktech
cn/?m_id=dangdang&a_id=A
&l=
&l_type
=
width=
height=
border=
nosave>主要代码如下
procedure TFormButtonClick(Sender: TObject);
var
nils : Integer;
ssu : String;
s : Char;
begin
su := ;
s := Trim(EditText);
n := Length(s);
for i:= to n do
begin
s := char(Ord(s[i])+(Ord(a)Ord(A)));
su :=su+s;
end;
EditText := su;
end;
符串中的任意字符转换成大写
本实例是先获取要转换成大写字符在字符串的位置然后通过Ord()函数来获取字符的ASCII码用获得的ASCII码与$DF相比得到该字符相对应的大写字母的ASCII码再用Chr()函数将 ASCII码转换成大写字母再用Copy()函数获取指定字符的前面的字符串和后面的字符串并按顺序进行连接运行结果如图所示
http://developcsaicn/delphi/images/jpg>
图 将字符串中的任意字符转换成大写
主要代码如下
function TFormToUpper(ch: char): char;
begin
Result := chr(Ord(ch) and $DF);
end;
procedure TFormButtonClick(Sender: TObject);
var
sp : String;
i : Integer;
begin
p := EditText;
s := ;
for i:= to Length(p) do
begin
if p[i]=EditText then
s := s+ToUpper(p[i])
else
s := s+Copy(pi);
right>[http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>]
![Delphi开发经验技巧宝典：字符中的转换[2]](/UploadFiles/6.jpg)