呵呵，本来想加上不少自己独特的功能的，只不过原作者的一些代码还没看懂，先发个简单修改过的上来...
备注：版权还是归原作者所有，“关于”里保留了原作者的信息，应该不算侵权啥的吧
使用说明
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、双引号变单引号；b、 ');变空；c、sql.add('变空。
2、mssql转换为delphi_sql：
示例如下：
select * from tb1
where AutoId>0 and CId='1'
转换为：
sql.Add ...
这是我D7下装coolform控件时遇到的这个问题哈。
1、添加 lib\designide.dcp到控件的dpk文件的requires部分
2、在控件的pas源文件中凡是uses dsgnintf的地方改成
uses designintf,designeditors
3、加入搜索路径
C:\Program Files\Borland\Delphi7\Source\ToolsAPI
4、implementation部分把Proxies隐掉
uses DesignConst, Consts, RTLConsts, Contnrs{Proxies};
5、找到并把
if (FAnces ...
if assigned(BtnOk.onClick) then...
文章转自：http://topic.csdn.net/t/20040511/13/3053975.html
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 code, you will find VCL use CF_TEXT to do the job (change it to CF_UNICODETEXT)!
Now we can use followin ...
重新安装DELPHI 7.0 以后，只有一个控件面板“standard”，不知道什么原因，经查可以这样解决：
关闭Delphi，然后编辑注册表，删除
HKEY_CURRENT_USER\Software\Borland\Delphi
这个键，然后重启Delphi即可。它会重建这个键，并恢复默认设置。
解决方法来自：http://www.go321.cn/html/server/linux/20070111/404.html
通常我们都是用拦截WM_NCHITTEST消息来移动无标题的窗口,介绍这个用法的文章很多,可是用WM_NCHITTEST同样能禁止窗口移动.
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST;
procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
begin
inherited;
if Msg.Result = H ...
首先做一窗体，然后将BorderStyle的属性设为bsnone,放image控件，align设为alclient
然后将主程序的修改为
uses
Windows,
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$ R *.res}
begin
Application.Initialize;
Form2:=TForm2.Create(Application); //创建启动画面窗口
Form2.Show; //显示启动窗口
Form2.Update; //刷新窗口
Appli ...
原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默认安装indy)
有篇文章教怎么用IdHashMessageDigest计算字符串md5,计算文件md5却没有说,在这里补充一下,先看计算函数:
function TIdHashMessageDigest4.HashValue(AStream: TStream): T4x4LongWordRecord;参数类型是一个流就可以返回T4x4LongWordRecord类型的值,使用function TIdHash12 ...
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。
在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。
示例代码
procedure TForm1.Button1Click(Sender: TObject);
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin
MyMD5 := TIdHashMessag ...
在工程文件dpr里加入代码：
Application.Initialize;
Application.Title := 'XXX;
CreateMutex(nil,false,'XXX);
if GetLastError <> ERROR_ALREADY_EXISTS then
begin
Application.CreateForm(TfmMain, fmMain);
Application.Run;
end;
另在前面uses部分加入Windows。
详见：http://mgd0629.spaces.live.com/blog/cns!1782c1ce9f ...
mathsfan
- 浏览: 137756 次
- 性别:
- 来自: 浙江省杭州市
- 详细资料
搜索本博客
我的相册
共 24 张
最近加入圈子
最新评论
-
tomcatplugin下载地址
非常感谢！
-- by wxmfly -
哭死，丢了一部分文件
远离windows，远离病毒木马
-- by pig345 -
终于知道怎么把rails Web ...
yhb888@gmail.com 麻烦发给我一份吧。非常感谢
-- by haibinxx -
华为Smart AX MT800设置方 ...
老大可以发份你的modem的固件给我吗？谢谢！邮箱：ananzy@163.com
-- by ananzy -
终于知道怎么把rails Web ...
发给我一份啊，nif_yws@126.com
-- by nif_yws
评论排行榜