摘要:
在从事与财务相关的软件开发过程中,通常要求将小写金额转换成相应的大写金额,并打印在大写金额栏中。下面是用Delphi3.0编制的一个转换函数,能够方便的在程序中调用,并返回字符串。 1.定义函数num—str function num—str(ls: Variant): String; var dx—sz,dx—dw,str—int,str—dec,dx—str... 阅读全文
摘要:
本实例介绍在程序运行的过程中禁止用户关闭操作系统。 用户是否可以关闭操作系统是通过对WM_QueryEndSession的处理来实现的,为此首先需要在程序中添加WM_QueryEndSession消息处理的声明: procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession; 它的响应代码... 阅读全文
摘要:
在应用实践中,我们经常会用到文件查询功能。通过Win95中提供的查找功能,我们可以方便的找出磁盘上任何子目录下的文件,其原因是该查找功能可以遍历指定目录下的所有子目录中的文件。从编程角度讲,它实现了子目录级的文件查询。其实,这项功能并不难实现,关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi实现了该项功能(任意子目录级),由于使用了懙莨閽,程序思路清晰,代码量小。 实现方法: 1... 阅读全文
摘要:
在Delphi数据库应用系统的数据录入过程中,有些数据是保存在Excel中的;有些是保存在纸张上的;还有一些是需要新增加的,由于各条记录之间有大量的重复数据,如果每条记录都让录入人员全部手工录入,其间的重复劳动是相当大的,还降低了工作效率。下面就这个问题进行论述。 1、利用Delphi调用Excel Delphi中已经带了Word与PowERPoint的例子,因为Excel的调用与这两... 阅读全文
摘要:
本实例演示如何映射和断开网络虚拟盘。 向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件,设计完成的主界面如图1所示。 图1 主界面 首先添加“连接”按钮的响应代码,在其中调用WNetAddConnection2函数,根据用户输入的本地虚拟盘和网络共享目录来映射虚拟盘,响应代码如下: procedure TfrmMain.bt... 阅读全文
摘要:
朋友们在用Delphi编程序的时候,常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中,可以通过编写一段代码或函数实现这一功能。但有了Delphi 7,这个工作可以更简化了。利用控件只需一句代码,就可以非常方便地实现这一功能。 新建一Project1,在form1中添加控件statusbar 1(Win32页)和控件IdIPWatch1(Indy Misc页)。接着设... 阅读全文
摘要:
实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。 首先在程序的uses段中添加MMSYSTEM,然后在窗体的初始化过程中添加以下代码: procedure TForm1.FormCreate(Sender: TObject); begin SndPlaySound(’c:\RECYCLE.WAV’,SND_ASYNC or SND_LOOP); end;... 阅读全文