09 2020 档案
摘要：/* 注册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
摘要：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
摘要：1. C:\Documents and Settings\Administrator\.borland 下面的删除了,就OK了. 2.拷贝dent.slip文件，好了。
阅读全文
posted @ 2020-09-25 09:54
绿水青山777
摘要：发现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
摘要：项目中用了DBGridEh，同时也用了DBGrid。在OnDrawColmnCell事件中调用DefaultDrawColumnCell，编译时却提示Incompatible types错误。 其实问题很简单，就是因为DBGridEh在GridsEh单元中重新定义了TGridDrawState类型（
阅读全文
posted @ 2020-09-25 09:51
绿水青山777
摘要：4）全局变量的使用 在 Widnows 32 位程序中，两个应用程序的地址空间是相互没有联系的。DLL在内存中是一份拷贝，而变量是在各进程的地址空间中，因此不能借助DLL的全局变量来达到两个应用程序间的数据传递，除非使用内存映像文件。 library MyDLL; var OldExitProc :
阅读全文
posted @ 2020-09-25 09:48
绿水青山777
摘要：delphi编写dll心得，感恩前辈的总结（外一篇） 1。每个函数体(包括exports和非exports函数)后面加 'stdcall;', 以编写出通用的dll 2。exports函数后面必须加'export;'(放在'stdcall;'前面) 3。对于非exports函数可以使用string类
阅读全文
posted @ 2020-09-25 09:45
绿水青山777
摘要：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
阅读全文
posted @ 2020-09-25 09:41
绿水青山777
摘要：Post请求在网页中多使用List形式提交参数。 不过在一些API中规定了POST的请求格式为 JSON 格式或 XML，这是需要注意发起请求前需要先设置 ContentType 属性，使用Stream方式提交 已上面代码为例： 提交 JSON 格式：IdHttp.Request.ContentTy
阅读全文
posted @ 2020-09-25 09:40
绿水青山777
摘要：此问题由CPU处理方式不同引起 ，一般处理方法为 ： num + 0.0000001 然后四舍五入， 下面是别人的转换得来，一样可以避免。
阅读全文
posted @ 2020-09-25 09:37
绿水青山777
摘要：回调函数则应 定义为 TCall = function(...);stdcall; 跟普通函数定义一样,只不过最后要指明调用方法stdcall, 事件是 TCall = procedure(....) of object;
阅读全文
posted @ 2020-09-25 09:35
绿水青山777
摘要：Delphi回调函数及其使用 1 回调函数的概述 回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者（
阅读全文
posted @ 2020-09-25 09:34
绿水青山777
摘要：procedure TLingSD.PosPrint(DJBH: string; ChongD: Boolean; DYSJ, CZY, ChongDYY: string); var F: TextFile; _Title, Stemp: string; DuanK :String; begin M
阅读全文
posted @ 2020-09-25 09:32
绿水青山777
摘要：//***************************************************************************** // NPC Add This 2019-05-15 16:29:54 // // 名 称：TfrmPublic.ExpDBGridEh_E
阅读全文
posted @ 2020-09-25 09:31
绿水青山777
摘要：aNode := NodeNew('input'); aNode.Value := ' '; //是个空格字符，要不然 这个节点不能显示 = <input/> var aDOC, xml: TNativeXml; aNode,aNode1: TXmlNode; declaration: TsdDec
阅读全文
posted @ 2020-09-25 09:30
绿水青山777
摘要：CREATE OR REPLACE FUNCTION fun_pinym(prm_name IN VARCHAR2) RETURN VARCHAR2 IS v_compare VARCHAR2(100); v_return VARCHAR2(4000);BEGIN DECLARE FUNCTION
阅读全文
posted @ 2020-09-16 16:14
绿水青山777
摘要：select lbid ,SUBSTR(lbid, INSTR(lbid, ';', -1, 2) + 1, INSTR(lbid, ';', -1) - 1 - INSTR(lbid, ';', -1, 2)),REPLACE(SUBSTR(lbid, INSTR(lbid, ';', -1, 2
阅读全文
posted @ 2020-09-16 16:11
绿水青山777
浙公网安备 33010602011771号