
Delphi
hsmserver
没有比人更高的山,没有比脚更长的路
展开
-
找不到动态连接库 rtl70.bpl
打包之后在有的机器安装会出现这个提示,百思不得其解,后搜索相关资料后得知,是DELPHI在编译的时候造成的。解决办法:打开project菜单的options子菜单,将packages里面的build with runtime packages前面的对沟去掉即可。原创 2006-05-01 18:15:00 · 5083 阅读 · 0 评论 -
用Delphi简单实现创建控件数组
privateprocedure EdtEnter(sender: TObject);procedure EdtExit(sender: TObject);end;procedure Tfrm.EdtEnter(sender: TObject);beginTEdit(sender).Color:=clInfoBk;//当EDIT获得焦点时的颜色end;procedure Tfr原创 2006-05-02 16:28:00 · 4077 阅读 · 1 评论 -
获取星期几的函数
function GetWeek: string;varmytime:_SYSTEMTIME;beginGetLocalTime(t);case mytime.wDayOfWeek of 0: Result:=星期日; 1: Result:=星期一; 2: Result:=星期二; 3: Result:=星期三; 4: Result:=星期四; 5: Result:=星期五原创 2006-05-02 17:05:00 · 1190 阅读 · 0 评论 -
防止DEDE反编译的DELPHI程序
Program Project1;Uses Forms, windows, sysutils, Unit1 In Unit1.pas {Form1}, Unit2 In Unit2.pas {Form2};Function RegisterServiceProcess(dwProcessId, dwType: dword): Integer; Stdcall; Exte转载 2006-09-21 15:43:00 · 3383 阅读 · 0 评论 -
取GridEh页脚的合计值
其实很简单:GridEH.GetFooterValue(0,GridEH.Columns[0])原创 2006-11-10 15:11:00 · 1114 阅读 · 0 评论 -
枚举某一时间段的有多少正点
varmyDay:integer;leepDay:integer;StaDateTime,EndDateTime:TDateTime;Year1,Month1,Day1,Hour1,Minute1,Second1,MilliSecond1:Word;Year2,Month2,Day2,Hour2,Minute2,Second2,MilliSecond2:Word;i,j:integer;s1,s2原创 2006-07-05 17:31:00 · 915 阅读 · 0 评论 -
TClentDataSet的bug?
在SQL SERVER查询分析器可执行SELECT TClientDataSet的CommandText设置为SELECT ,却提示无效参数, SELECT 却可以执行原创 2007-07-17 09:21:00 · 780 阅读 · 0 评论 -
关于Record not found or changed by another user的问题
ClientDataSet提交时出现"Record not found or changed by another user"错误提示分析原因可能是找找不到更新数据,从网上搜索到大致原因有一下几个方面:1、没有主键2、某些字段不能识别某些提供解决方案也无非是设置DSP的UpdateMode属性,去掉字段的一些默认值这些问题,我仔细检查了一下,感觉不可能存在,仔细分析原因:我更新记录是分两种方式一种原创 2007-07-17 12:07:00 · 5197 阅读 · 0 评论