信息产业培训网

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

http://www.miiceic.org.cn   2008-3-5 10:44:42   中程在线   浏览数:
关键字:delphi

    字转换成字符串

    本实例是用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  将字符串全部小写

来源:csai
相关连接
最新评论
*以下网友发言不代表中程在线网站的观点和看法
    我要评论

    请您注意
    1、遵守中华人民共和国的各项有关法律规定
    2、承担一切因您的行为而导致的法律责任
    3、本网留言管理人员有权删除其管辖留言内容
    4、您在本网的留言本网有权在网站内转载和引用
    5、参与本留言即表明您已经阅读并接受上述条款
    我爱研发网中电华信阿里西西JAVA爱好者北京英才网全球大学查询网
    中国人的网站导航中国电脑论坛信息产业部新浪科技搜狐IT信息产业部电子教育与考试中心
    IT世界网软件项目交易网中国软件交易网国信培训网亚远景科技....[更多]
    关于我们 | 网站地图 | 周边住宿 | 行车路线 | 联系我们 | 网站律师 | 意见反馈 | 虚位以待 | 友情链接
    中程在线(北京)科技有限公司 版权所有
    总 部:北京市海淀区青东商务楼A座西四层
    企业培训部:010-52636110 52636106 就业培训部:010-68716925 68716926
    邮 件:training@miiceic.org.cn
    京ICP备06053134号
    Copyright © 2005-2008 Miiceic.org.cn All Rights Reserved