Delphi
Open2ye
这个作者很懒,什么都没留下…
展开
-
一个只有17K的Delphi字符串加密程序源码
program Window;{ This is an example of making an application without using the Forms unit. Forms.pas is the Delphi unit that makes your programs so damn huge! Forms.pas has all the code for原创 2005-07-17 07:43:00 · 1554 阅读 · 0 评论 -
Pascal的指针
作者:Nicrosoft 大家都认为,C语言之所以强大,以及其自由性,很大部分体现在其灵活的指针运用上。因此,说指针是C语言的灵魂,一点都不为过。同时,这种说法也让很多人产生误解,似乎只有C语言的指针才能算指针。Basic不支持指针,在此不论。其实,Pascal语言本身也是支持指针的。从最初的Pascal发展至今的Object Pascal,可以说在指针运用上,丝毫不会逊色于C语言的指针。 以下内原创 2005-07-17 18:26:00 · 1559 阅读 · 1 评论 -
解决无法更新定位行
解决无法更新定位行错误原因: 新加的数据,如果对此再有改动,由于未更新。导致记录无法找到。解决办法: 在新加数据后做 刷新工作步骤:1 建一个全局变量 nflag2procedure TfPurchase.ADOTable1AfterInsert(DataSet: TDataSet);begin nflag:=1;end;3procedure TfPurchase.ADOTable1AfterP原创 2005-08-08 16:43:00 · 3242 阅读 · 0 评论 -
备份Access 数据库并用WinRar压缩加密
{Alvin Ye 叶冬开keywork : Access 数据库 备份 winexec winrar 压缩 加密 }unit uBak;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,FileCtrl;原创 2006-03-03 20:53:00 · 1248 阅读 · 0 评论 -
Winrar 用命令行压缩一个文件 带密码
winrar a 2.rar 1.txt -p1将 1.txt 压缩为 2.rar 密码为1注意:如果名件名中有空格,请用“”包起来原创 2006-03-03 23:54:00 · 4216 阅读 · 1 评论 -
Delphi 用到Access 的视图中有FormatDateTime 函数时出错
缘起:在Access 有一字段是长时间类型的,客户要求做一个日报表汇总,即要把长时间类型改为短时间类型用Access里的FormatDateTime("LongDate",2) 就可以实现了,但是在Delphi里引用此视图时出错.提示为:"找不到FormatDateTime函数!!"?? 郁闷ing解决办法装 FormatDateTime 函数改为CDate(CStr(Ye原创 2006-03-29 16:48:00 · 2517 阅读 · 1 评论 -
去掉Dblookupeh控件的自己填充功能
这个自动填充功能当数据出现 aa aaa aaaa 时就会出现aaa 最后一个a删不掉的情况。解决方法就去掉这个自动填充功能。在特定情况可以加快这个控件的速度 打开Dblookupeh.pas 文件一般在 delphi/bin/ 目录下找到 function TCustomDBLookupComboboxEh.LocateStr(Str: String; PartialKey: Boolean):原创 2006-05-08 21:28:00 · 1420 阅读 · 0 评论 -
delphi 的分离字符串函数 split
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type userarray=array of string;type TForm1 = class(TForm) Edit1: TEd原创 2006-05-08 22:23:00 · 2824 阅读 · 0 评论