关键字：delphi
end;
Edit3.Text := s;
end;
符串中的任意字符转换成小写
本实例先获取要转换成大写字符在字符串的位置，然后通过Ord()函数来获取字符的ASCII码，用获得的ASCII码与$20进行或运算，得到该字符相对应的小写字母的ASCII码，再用Chr()函数将ASCII码转换成小写字母，再用Copy()函数获取指定字符的前面的字符串和后面的字符串，并按顺序进行连接。运行结果如图5.8所示。
图5.8 将字符串中的任意字符转换成小写
主要代码如下：
function TForm1.ToLower(ch: char): char;
begin
Result := Chr(Ord(ch) or $20);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s,p : String;
i,j : Integer;
begin
p := Edit1.Text;
s := '';
j := 1;
for i:=1 to Length(p) do
begin
if p[i]=Edit2.Text then
begin
if i=1 then
s := s+ToLower(p[i])
else
s := s+Copy(p,j,i-j)+ToLower(p[i]);
j := i+1;
end;
end;
if j<=i then
s := s+Copy(p,j,i-j);
Edit3.Text := s;
end;
符串首字母大写
本实例是用AnsiMidstr()函数来获取字符串中的首字母，并用Ansiuppercase()函数将其转换成大写字母，再与首字母后的字符串相联接。运行结果如图5.9所示。
来源：csai
