摘要：
/* 注册job 设置时间 必须在命令窗口内执行 Variable N Number; Begin DBMS_JOB.Submit(:N,'P_SCQBFY;',Trunc(Sysdate)+23/24,'Trunc(Sysdate+1)+23/24'); Commit; End;*/ CREATE 阅读全文
摘要：
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 阅读全文
摘要：
1. C:\Documents and Settings\Administrator\.borland 下面的删除了,就OK了. 2.拷贝dent.slip文件，好了。 阅读全文
摘要：
发现Trunc函数错误 Trunc是取整函数，但不知为什么，本人在多台计算机上得出如下错误结果。大家不妨试试，知道答案的解析下 Trunc(2.1* 100) / 100 得出的结果不是2.1而是2.09 Trunc(4.7* 100) / 100 得出的结果不是4.7而是4.06 有知道问题的朋友 阅读全文
摘要：
项目中用了DBGridEh，同时也用了DBGrid。在OnDrawColmnCell事件中调用DefaultDrawColumnCell，编译时却提示Incompatible types错误。 其实问题很简单，就是因为DBGridEh在GridsEh单元中重新定义了TGridDrawState类型（ 阅读全文
摘要：
4）全局变量的使用 在 Widnows 32 位程序中，两个应用程序的地址空间是相互没有联系的。DLL在内存中是一份拷贝，而变量是在各进程的地址空间中，因此不能借助DLL的全局变量来达到两个应用程序间的数据传递，除非使用内存映像文件。 library MyDLL; var OldExitProc : 阅读全文
摘要：
delphi编写dll心得，感恩前辈的总结（外一篇） 1。每个函数体(包括exports和非exports函数)后面加 'stdcall;', 以编写出通用的dll 2。exports函数后面必须加'export;'(放在'stdcall;'前面) 3。对于非exports函数可以使用string类 阅读全文
摘要：
library dll10; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select 阅读全文
摘要：
Post请求在网页中多使用List形式提交参数。 不过在一些API中规定了POST的请求格式为 JSON 格式或 XML，这是需要注意发起请求前需要先设置 ContentType 属性，使用Stream方式提交 已上面代码为例： 提交 JSON 格式：IdHttp.Request.ContentTy 阅读全文
摘要：
此问题由CPU处理方式不同引起 ，一般处理方法为 ： num + 0.0000001 然后四舍五入， 下面是别人的转换得来，一样可以避免。 阅读全文
摘要：
回调函数则应 定义为 TCall = function(...);stdcall; 跟普通函数定义一样,只不过最后要指明调用方法stdcall, 事件是 TCall = procedure(....) of object; 阅读全文
摘要：
Delphi回调函数及其使用 1 回调函数的概述 回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者（ 阅读全文
摘要：
procedure TLingSD.PosPrint(DJBH: string; ChongD: Boolean; DYSJ, CZY, ChongDYY: string); var F: TextFile; _Title, Stemp: string; DuanK :String; begin M 阅读全文
摘要：
//***************************************************************************** // NPC Add This 2019-05-15 16:29:54 // // 名 称：TfrmPublic.ExpDBGridEh_E 阅读全文
摘要：
aNode := NodeNew('input'); aNode.Value := ' '; //是个空格字符，要不然 这个节点不能显示 = <input/> var aDOC, xml: TNativeXml; aNode,aNode1: TXmlNode; declaration: TsdDec 阅读全文