符串中的任意字符转换成大写

    本实例是先获取要转换成大写字符在字符串的位置，然后通过Ord()函数来获取字符的ASCII码，用获得的ASCII码与$DF相比，得到该字符相对应的大写字母的ASCII码，再用Chr()函数将 ASCII码转换成大写字母，再用Copy()函数获取指定字符的前面的字符串和后面的字符串，并按顺序进行连接。运行结果如图5.7所示。

图5.7  将字符串中的任意字符转换成大写

    主要代码如下：
    function TForm1.ToUpper(ch: char): char;
    begin
     Result := chr(Ord(ch) and $DF);
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    var
     s,p : String;
     i : Integer;
    begin
     p := Edit1.Text;
     s := '';
     for i:=1 to Length(p) do
     begin
      if p[i]=Edit2.Text then
       s := s+ToUpper(p[i])
      else
       s := s+Copy(p,i,1);