摘要：
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-10-16 16:58
绿水青山777
阅读(287)
评论(0)
推荐(0)
摘要：
tvLBList.Items[0].MakeVisible; ListView1.Items[i].MakeVisible(True); //定位后显示出来 阅读全文
posted @ 2020-10-14 16:13
绿水青山777
阅读(88)
评论(0)
推荐(0)
摘要：
procedure TfrmMain.DbGridEhToExcel(ADgEh: TDBGridEh);var ExpClass: TDBGridEhExportclass; Ext: string; FSaveDialog: TSaveDialog;begin try if ADgEh.Data 阅读全文
posted @ 2020-10-12 16:32
绿水青山777
阅读(251)
评论(0)
推荐(0)
摘要：
/* 注册job 设置时间 必须在命令窗口内执行 Variable N Number; Begin DBMS_JOB.Submit(:N,'P_SCQBFY;',Trunc(Sysdate)+23/24,'Trunc(Sysdate+1)+23/24'); Commit; End;*/ CREATE 阅读全文
posted @ 2020-09-25 09:57
绿水青山777
阅读(176)
评论(0)
推荐(0)
摘要：
function MyRound2(Money: Real): Real; //四啥五入 var Temp: Integer; begin if ((Money <= 0.04) and (Money >= 0)) then Money := 0.1 else if ((Money < 0) and 阅读全文
posted @ 2020-09-25 09:55
绿水青山777
阅读(194)
评论(0)
推荐(0)
摘要：
1. C:\Documents and Settings\Administrator\.borland 下面的删除了,就OK了. 2.拷贝dent.slip文件，好了。 阅读全文
posted @ 2020-09-25 09:54
绿水青山777
阅读(482)
评论(0)
推荐(0)
摘要：
发现Trunc函数错误 Trunc是取整函数，但不知为什么，本人在多台计算机上得出如下错误结果。大家不妨试试，知道答案的解析下 Trunc(2.1* 100) / 100 得出的结果不是2.1而是2.09 Trunc(4.7* 100) / 100 得出的结果不是4.7而是4.06 有知道问题的朋友 阅读全文
posted @ 2020-09-25 09:52
绿水青山777
阅读(278)
评论(0)
推荐(0)
摘要：
项目中用了DBGridEh，同时也用了DBGrid。在OnDrawColmnCell事件中调用DefaultDrawColumnCell，编译时却提示Incompatible types错误。 其实问题很简单，就是因为DBGridEh在GridsEh单元中重新定义了TGridDrawState类型（ 阅读全文
posted @ 2020-09-25 09:51
绿水青山777
阅读(254)
评论(0)
推荐(0)
摘要：
4）全局变量的使用 在 Widnows 32 位程序中，两个应用程序的地址空间是相互没有联系的。DLL在内存中是一份拷贝，而变量是在各进程的地址空间中，因此不能借助DLL的全局变量来达到两个应用程序间的数据传递，除非使用内存映像文件。 library MyDLL; var OldExitProc : 阅读全文
posted @ 2020-09-25 09:48
绿水青山777
阅读(162)
评论(0)
推荐(0)
摘要：
delphi编写dll心得，感恩前辈的总结（外一篇） 1。每个函数体(包括exports和非exports函数)后面加 'stdcall;', 以编写出通用的dll 2。exports函数后面必须加'export;'(放在'stdcall;'前面) 3。对于非exports函数可以使用string类 阅读全文
posted @ 2020-09-25 09:45
绿水青山777
阅读(540)
评论(0)
推荐(0)
浙公网安备 33010602011771号