- 博客(10)
- 收藏
- 关注
转载 Format Function
function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能 返回按指定方式格式化一个数组常量的字符形式说明 这个函数是我在Delphi中用得最多的函数,现在就列举几个例子给你个直观的理解"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型Format(x=
2005-02-05 17:23:00 831
转载 Zip access db
用程序实现压缩access(*.mdb)数据库的方法. 下面的函数用来压缩access数据库 需要增加ComObj单元function CompactDatabase(AFileName,APassWord:string):boolean;//压缩与修复数据库,覆盖源文件const SConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;D
2005-02-05 17:19:00 712
转载 Sort
用“归并”改进“快速排序” [ 时间:2003-11-2 来源:plainsong ] 排序和搜索是我们编程时最常用到的两种算法了,C++程序员们幸运一些,因为在C++标准库中就有各种通用的排序函数;而Delphi程序员就只有TList.Sort和TStringList.Sort可用了,所以Delphi程序员通常都把排序函数加入到自己的常用函数单元中。
2005-02-05 17:15:00 656
转载 Currency 2 大写
最精简的小写金额转大写的函数 .测试通过了。 function NumToChar(const n: Real): string; //可以到万亿,并且可以随便扩大范围 const cNum: WideString = 零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分; cCha:array[0..1, 0..12]of string= (( 零元,零拾
2005-02-05 17:13:00 2125
转载 24节气的MonthCalendar
带24节气的月历控件unit hxCalendar;interfaceuses Classes, Controls, Messages, Windows, Forms, Graphics, StdCtrls, Grids, SysUtils,DateUtils;type TDayOfWeek = 0..6; TDroppedCell = procedure(Sen
2005-02-05 17:11:00 1099
转载 CRC
CRC算法的实现...unit Crc32;interface ---转截ksaiy的Bloguses Windows,SysUtils,Classes;const //Crc32表 Table:Array[0..255] of DWORD= ( $
2005-02-05 17:09:00 782
转载 Program of taskbar & hotkey
任务栏程序-01 这里的人气真是不旺啊,我来添一把柴,希望能够带动大家的编程热情。这是我第一次写教程,不足之处大家多包涵。打算分两次写成一个列于桌面右侧的sidebar(中文名不知道叫什么,好像应该算是任务栏,因为主要灵感来自于Desktop Sidebar)程序,可以从网上读取天气预报,可以显示当前的时钟等基本功能(你可以加入自己的功能)。我的编程环境是Windows 2003 + De
2005-02-05 17:08:00 739
转载 FastReport3.x Export to pdf file
文章PDF Resource (rss) 心情&随笔 (rss) 收藏delphi pdf 存档2005年02月 (1) 2005年01月 (3) function StorePage(){ d=document; t=d.selection?(d.selection.type!=None?d.selection.crea
2005-02-05 17:05:00 1293
转载 Delphi Use Dll
DELPHI中动态调用dll 显式例子: unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, DBTable
2005-02-05 17:03:00 825
转载 Dephi Skills 1
delphi经典技艺 问:如何让del+CTRL+ALT看不见程序运行?答:为了让程序用ALT+DEL+CTRL看不见,在implementation后添加声明:function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external KERNEL32.DLL;再在上面的窗口Creat
2005-02-05 16:49:00 1397 2
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人