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

    字转换成字符串

    本实例是用InttoStr()函数将指定的数字转换成字符串。

    程序代码如下：
    procedure TForm1.Button1Click(Sender: TObject);
    var
     i:Integer;
     s:String;
    begin
     i:=1234567;
     s:=IntToStr(i);
     ShowMessage(s);
    end;

    符串全部大写

    本实例是通过字符的ASCII码，将小写字母转换成大写的。运行结果如图5.5所示。

图5.5  将字符串全部大写

    程序代码如下：
    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;

    符串全部小写

    本实例是通过字符的ASCII码，将大写字母转换成小写。运行结果如图5.6所示。

图5.6  将字符串全部小写

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

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