mathsfan的blog

在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。示例代码procedure TForm1.Button1Click(Sende...

[url]http://topic.youkuaiyun.com/u/20080121/01/1d2f3ac0-2e59-47e7-9735-2005336556be.html[/url]

网上找不到可用的gif图片，自己用d7简单的写了下给她 :)

最近打算好好分析下delphi的代码结构，然后做一个自动生成代码文件的工具。因为平时项目中做的很多东西其实是有很大的通用性的，那么如何减少平时重复的劳动呢？思考了很多，觉得在技术上是可行的 :D ...

以后写个SQL语句就可以完成查询报表的框架啦，不用再在dbgrideh中写中文、加合计，报表控件还得写次中文 :D

哈哈，这两天晚上搞定了两个小工具，平均一天一个 :D 第一个：D6、D7没有整个项目的字符串替换功能，前些天写了一部分，昨天进行了完善和优化，速度嘛比较满意。第二个：早期项目中的一个过程写的不好，要5、6行，现在新写了一个过程，一行搞定。由于一个项目就至少有上百个类似的代码，所以写个工具自动按我的意图去替换掉 :arrow: Enjoy it....

原来整个系统的所有报表、表单的打印和预览功能可以被我做的这么简单，开心 :D 看来平时的很多独特想法，只需要一个一个去实现就会产生非常神奇的效果，加油。...

反正我是没找到可以达到我所需功能的属性哈，经过间断数小时的努力，成功修改了源代码加入了判断是否打印的属性... :D 好困啊，明天9点再起来......

在工程文件dpr里加入代码：[code]Application.Initialize;Application.Title := 'XXX;CreateMutex(nil,false,'XXX); if GetLastError ERROR_ALREADY_EXISTS thenbegin Application.CreateForm(TfmMain, fmMain)...

朋友学生问她这样一个问题：有一个整数，除300，262，205得到的余数相同，这个整数是多少？想了下还是用程序来穷举计算快点：[code="java"]var i:integer;begin for i:=1 to 300 do begin if (300 mod i)=(262 mod i) then begin if (300 m...

大富翁看到这么一个题目：[url]http://www.delphibbs.com/delphibbs/DispQ.asp?LID=3933374[/url]用delphi实现如下：[quote]procedure TForm1.Button1Click(Sender: TObject);var i,j,a,b:integer; sTemp:array [0..1000...

呵呵，本来想加上不少自己独特的功能的，只不过原作者的一些代码还没看懂，先发个简单修改过的上来...备注：版权还是归原作者所有，“关于”里保留了原作者的信息，应该不算侵权啥的吧 :D ...

使用说明1、delphi_sql转换为mssql：示例如下：sql.add('select * from tb1');sql.add(' where AutoId>0and CId= ''1'''); 转换为：select * from tb1 where AutoId>0and CId= '1' 实际实现的功能为：a、双引号变单引号...

方法：Delphi7:1) Delete the file: C:\documents and settings\\.borland\registry.slm2) delphi7\bin\D7Reg.exe重新注册即可。来源：[url]http://blog.sina.com.cn/s/blog_5591c079010008zu.html[/url]PS：害我昨晚上...

原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默认安装indy)有篇文章教怎么用IdHashMessageDigest计算字符串md5,计算文件md5却没有说,在这里补充一下,先看计算函数:function TIdHashMessageDigest4.Ha...

首先做一窗体，然后将BorderStyle的属性设为bsnone,放image控件，align设为alclient然后将主程序的修改为uses Windows, Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$ R *.res} begin Applicat...

通常我们都是用拦截WM_NCHITTEST消息来移动无标题的窗口,介绍这个用法的文章很多,可是用WM_NCHITTEST同样能禁止窗口移动. TForm1 = class(TForm) private { Private declarations } procedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM...

重新安装DELPHI 7.0 以后，只有一个控件面板“standard”，不知道什么原因，经查可以这样解决：关闭Delphi，然后编辑注册表，删除HKEY_CURRENT_USER\Software\Borland\Delphi这个键，然后重启Delphi即可。它会重建这个键，并恢复默认设置。解决方法来自：http://www.go321.cn/html/server/li...

试了N个版本，N种方法，功夫不负有心人呐``` :D

Wrong character in ClipBoard.AsText??In Delphi, use ClipBoard unit, a common method "ClipBoard.AsText" is doing a wrong way when using non-English character. How to fix it? Look into the source co...

if assigned(BtnOk.onClick) then... 文章转自：[url]http://topic.youkuaiyun.com/t/20040511/13/3053975.html[/url]

这是我D7下装coolform控件时遇到的这个问题哈。1、添加 lib\designide.dcp到控件的dpk文件的requires部分2、在控件的pas源文件中凡是uses dsgnintf的地方改成uses designintf,designeditors3、加入搜索路径C:\Program Files\Borland\Delphi7\Source\ToolsAPI4...

[code="java"]function IsValidIdent(const Ident: string): Boolean;const Alpha = ['A'..'Z', 'a'..'z', '_']; AlphaNumeric = Alpha + ['0'..'9'];var I: Integer;begin Result := False; i...

验证图片效果如下：[img]http://msdn.iteye.com/upload/picture/pic/30401/b8a11b41-a107-3131-9003-dc72b90c2480.jpg[/img]调用方法（控件请使用TImage）：uses imgCheckPS;//imgPic: TImage;不加LowerCase直接和ImgStr比较则验证时要区分大小写...

一个单词，可以在其相边的两个字母中插入一个“-”（横杠字符）而形成一个字符串，比如单词cake，可以在相连字母间（不同的位置）拖入“-”，而得到如下字符串： c-a-k-e ca-k-e cak-e c-ak-e c-ake ca-ke c-a-ke 如果给定任一个单词（作为输入），按上面的规则，在其相边的两个字母中插入一个“-”，要计算出所有可能的形成的字符串...