绿水青山777 - 博客园

2020年9月25日

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

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

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

posted @ 2020-09-25 09:31 绿水青山777 阅读(138) 评论(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 阅读(122) 评论(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 阅读(233) 评论(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 阅读(564) 评论(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 阅读(253) 评论(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 阅读(188) 评论(0) 推荐(0)

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

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

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

2020年7月2日

delphi取win10输入法（转自qdac）

摘要：【问题原因】该问题是由于微软从 Windows 8 开始，GetKeyboadLayouts 函数不再有效，而 VCL 中仍然是通过该方法获取输入法列表造成的。希望下个版本的 Delphi/C++ Builder 能够解决。【解决办法】如果是 Win8+，则自己从注册表读，如果是Win 7 等阅读全文

posted @ 2020-07-02 08:56 绿水青山777 阅读(1579) 评论(0) 推荐(0)

2020年6月1日

缇、像素转厘米的方法

摘要：缇、像素转厘米的方法 2013年12月04日 ⁄ 综合 ⁄ 共 2338字 ⁄ 字号小中大 ⁄ 评论关闭缇、像素在非标准状况下不能直接换算成英寸、厘米，需要再添加一个值——分辨率(dpi)下才能换算! photoshop中两种分辨率换算72像素/英寸=28.346像素/厘米300像素/英寸= 阅读全文

posted @ 2020-06-01 10:20 绿水青山777 阅读(647) 评论(0) 推荐(0)

面朝大海，春暖花开。

公告