随笔分类 - Delphi
摘要：此问题由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
摘要：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
摘要：一个队列类的实现(比delphi自带的速度快70倍) 测试结果 实现的代码 unit sfContnrs; interface {$DEFINE MULTI_THREAD_QUEUE} //线程安全版本，如果不需要线程安全，请注释掉此行代码 {$IFDEF MULTI_THREAD_QUEUE}us
阅读全文
posted @ 2020-07-06 14:52
绿水青山777
摘要：临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别 TRtlCriticalSection 是一个结构体，在windows单元中定义；是InitializeCriticalSection，EnterCriticalSection，Leave
阅读全文
posted @ 2020-07-06 09:59
绿水青山777
摘要：【问题原因】 该问题是由于微软从 Windows 8 开始，GetKeyboadLayouts 函数不再有效，而 VCL 中仍然是通过该方法获取输入法列表造成的。希望下个版本的 Delphi/C++ Builder 能够解决。 【解决办法】 如果是 Win8+，则自己从注册表读，如果是Win 7 等
阅读全文
posted @ 2020-07-02 08:56
绿水青山777
摘要：缇、像素转厘米的方法 2013年12月04日 ⁄ 综合 ⁄ 共 2338字 ⁄ 字号 小 中 大 ⁄ 评论关闭 缇、像素在非标准状况下不能直接换算成英寸、厘米，需要再添加一个值——分辨率(dpi)下才能换算! photoshop中两种分辨率换算72像素/英寸=28.346像素/厘米300像素/英寸=
阅读全文
posted @ 2020-06-01 10:20
绿水青山777
摘要：缇(Twips) （缇：计量单位，等于“磅”的 1/20，英寸的 1/1,440。一厘米有 567 缇。像素(Pixels)：监视器或打印机分辨率的最小单位右键单击桌面，选择属性，选择“设置”选卡，单击高级按钮。里面出现DPI设置。一般为“正常尺寸(96 DPI)”。DPI的意思就是 DPI (Do
阅读全文
posted @ 2020-06-01 10:15
绿水青山777
摘要：unit Unit_main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TypInfo; type TForm_main
阅读全文
posted @ 2020-05-15 15:55
绿水青山777
摘要：Delphi编译指令详解(1-10)发表:不详 阅读:次 关键字：不详 字体:[大 中 小]Delphi编译指令详解(1)——总述 Delphi编译指令共有三种，开关编译指令、参数编译指令和条件编译指令。 一个编译指令实际上是一个标志符（编译器所能识别的标志符)，且有其固定的语法。编译器根据不同的指
阅读全文
posted @ 2020-04-30 10:29
绿水青山777
摘要：编译选项的设置，称为“开关指令”，其中大部分值为布尔类型一、代码生成（Code generation）1、Optimization 优化代码，默认true2、Stack frames 生成过程/函数的Stack frames（调试工具用），默认false3、Pentium-safe FDIV 修正早
阅读全文
posted @ 2020-04-30 10:19
绿水青山777
摘要：Windows系统上的 Notepad.exe 打开文件后，点击“文件”菜单中的“另存为”命令，会跳出一个对话框，在最底部有一个“编码”的下拉条。里面有四个选项：ANSI，Unicode，Unicode big endian 和 UTF-8。1）ANSI是默认的编码方式。对于英文文件是ASCII编码
阅读全文
posted @ 2020-04-28 16:16
绿水青山777
摘要：{"110101001":"东华门街道","110101002":"景山街道","110101003":"交道口街道","110101004":"安定门街道","110101005":"北新桥街道","110101006":"东四街道","110101007":"朝阳门街道","110101008"
阅读全文
posted @ 2020-04-27 11:29
绿水青山777
摘要：不用 newstr procedure TForm1.cbb1CloseUp(Sender: TObject);begin edt1.Text := PString(cbb1.Items.Objects[cbb1.ItemIndex])^ + ':' + qry1KESMC.AsString;end
阅读全文
posted @ 2020-04-24 09:02
绿水青山777
摘要：uses DateUtils; var S1, S2: string; T1, T2: TDateTime; D, H, M, S: Integer; Value: Int64; begin S1 := '2015/09/23 15:44:50'; S2 := '2013/09/22 16:47:5
阅读全文
posted @ 2020-04-19 17:31
绿水青山777
摘要：fastreport 报TBarCodeView类没有发现错误，是因为没有加入单元 frxBarCode;
阅读全文
posted @ 2020-03-09 16:11
绿水青山777
浙公网安备 33010602011771号