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