DELPHI取数

WheatH 2006-12-11 11:25:07

xxmmmx，非常感谢您的帮助！
上次说的那个问题，已进展到关键地步，到时恐怕还得麻烦您。

...全文

104 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

踢踏 2006-12-11

打赏
举报

回复

上次偶也没搞定，恐怕只能为你提供资料，需要你自己研究了。

delphi取数示例程序.delphi取数示例程序

Delphi数字大小写转换程序实例，并附有语音报号程序，实例在Delphi7.0下可顺利编译。主要是针对人民币的数字大小写转换，将阿拉伯数字转换成大写，具体定义：const mnUnit:WideString ='分角元'; 　　const OtherWords:WideString='\u6574\u8d1f'; 　　const hzUnit:WideString = '拾佰仟万拾佰仟亿'; 　　const hzNum:WideString='\u96f6\u58f9\u8d30\u53c1\u8086\u4f0d\u9646\u67d2\u634c\u7396'; 　　当从所取位置要取的字符数超过字符串长度时，修正所取字符串个数。

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。...

返回2个操作数相除的商和余数,程序通过求13/3和15/3,来演示如何计算商和余数,单击按钮即可求出结果,相关代码: 　　var 　　 a,b: word; 　　begin 　　 DivMod(13,3,a,b); 　　 Edit1.Text := '商数：' IntToStr(a) ' 佘数：' IntToStr(b); 　　 DivMod(15,3,a,b); 　　 Edit2.Text := '商数：' IntToStr(a) ' 佘数：' IntToStr(b); 　　end;

Delphi 从右边开始截取指定个数的字符串，使用RightStr截取字符串的例子，这个功能平时在处理字符时使用频繁，除了右侧截取，还有左侧截取，今天这个右侧截取，从示例文字开始，从右侧截取5个字符串保留下来。具体的操作代码，以下几行代码可演示：　　begin 　　 Edit1.Text := RightStr('C:\myprocdure\project1.exe',4); 　　 Edit2.Text := RightStr('我爱足球，我爱世界杯',5); 　　end;

829

社区成员

53,611

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章