Delphi开发经验技巧宝典：字符中的转换[2]

   主要代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     n,i,ls : Integer;
     s,su : String;
     s1 : Char;
    begin
     su := '';
     s := Trim(Edit1.Text);
     n := Length(s);
     for i:=1 to n do
     begin
         s1 := char(Ord(s[i])+(Ord('a')-Ord('A')));
       su :=su+s1;
     end;
     Edit2.Text := su;
    end;

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

    本实例是先获取要转换成大写字符在字符串的位置，然后通过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);

• Delphi开发经验技巧宝典：字符中的转换[1]
• Delphi开发技巧：ASCII码与编码转换[2]
• Delphi开发技巧：ASCII码与编码转换[1]
• Web开发框架：Wicket1.3发布
• 用DELPHI在状态栏中显示进程条[2]

请您注意
1、遵守中华人民共和国的各项有关法律规定
2、承担一切因您的行为而导致的法律责任
3、本网留言管理人员有权删除其管辖留言内容
4、您在本网的留言本网有权在网站内转载和引用
5、参与本留言即表明您已经阅读并接受上述条款