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