绿水青山777 - 博客园

2020年9月25日

回调函数则应定义为 TCall = function(...);stdcall;

摘要：回调函数则应定义为 TCall = function(...);stdcall; 跟普通函数定义一样,只不过最后要指明调用方法stdcall, 事件是 TCall = procedure(....) of object; 阅读全文

posted @ 2020-09-25 09:35 绿水青山777 阅读(153) 评论(0) 推荐(0) 编辑

摘要： Delphi回调函数及其使用 1 回调函数的概述回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递给对象，同时将一个调用者可以访问的函数地址传递给该对象。这个函数就是调用者和被调用者之间的一种通知约定，当约定的事件发生时，被调用者（阅读全文

posted @ 2020-09-25 09:34 绿水青山777 阅读(234) 评论(0) 推荐(0) 编辑

POS机打印

摘要： 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 阅读(263) 评论(0) 推荐(0) 编辑

导出Execl ,带多头，最后后并列为特殊处理

摘要： //***************************************************************************** // NPC Add This 2019-05-15 16:29:54 // // 名称：TfrmPublic.ExpDBGridEh_E 阅读全文

posted @ 2020-09-25 09:31 绿水青山777 阅读(130) 评论(0) 推荐(0) 编辑

XML心得

摘要： aNode := NodeNew('input'); aNode.Value := ' '; //是个空格字符，要不然这个节点不能显示 = <input/> var aDOC, xml: TNativeXml; aNode,aNode1: TXmlNode; declaration: TsdDec 阅读全文

posted @ 2020-09-25 09:30 绿水青山777 阅读(111) 评论(0) 推荐(0) 编辑

2020年9月16日

数据库汉语拼音

摘要： 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 阅读(206) 评论(0) 推荐(0) 编辑

子串从后向前截取

摘要： 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 阅读(552) 评论(0) 推荐(0) 编辑

2020年8月20日

delphi 限制全角字符

摘要： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var st: PChar;begin if Key in ['$', '^', '&',#163] then Key := #0;end; function SbctoDb 阅读全文

posted @ 2020-08-20 11:19 绿水青山777 阅读(240) 评论(0) 推荐(0) 编辑

2020年7月6日

一个队列类的实现(比delphi自带的速度快70倍) 转

摘要：一个队列类的实现(比delphi自带的速度快70倍) 测试结果实现的代码 unit sfContnrs; interface {$DEFINE MULTI_THREAD_QUEUE} //线程安全版本，如果不需要线程安全，请注释掉此行代码 {$IFDEF MULTI_THREAD_QUEUE}us 阅读全文

posted @ 2020-07-06 14:52 绿水青山777 阅读(179) 评论(0) 推荐(0) 编辑

临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别（转）

摘要：临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别 TRtlCriticalSection 是一个结构体，在windows单元中定义；是InitializeCriticalSection，EnterCriticalSection，Leave 阅读全文

posted @ 2020-07-06 09:59 绿水青山777 阅读(172) 评论(0) 推荐(0) 编辑

面朝大海，春暖花开。

公告