随笔分类 -  delphi

delphi相关开发技术
Delphi 与 C/C++ 数据类型对照表
摘要：Delphi数据类型C/C++ ShorInt 8位有符号整数 char Byte 8位无符号整数 BYTE,unsigned short SmallInt 16位有符号整数 short Word 16位无符号整数 unsigned short Integer,LongInt 32位有符号整数 in 阅读全文
posted @ 2020-10-19 18:01 黑贝是条狗 阅读(503) 评论(0) 推荐(0)
序列化与反序列化
摘要：昨天，听大佬们在聊序列化，有提到xml，json，dfm xml，json适合 公用接口，对于对象序列化，delphi的dfm 至少领先30年 所以，delphier 要明白，真正好的东西 就在身边 delphi 的很多东西的思想都是非常先进的 delphi 只是用的人少了，但这工具，这语言并不比其 阅读全文
posted @ 2020-10-14 11:46 黑贝是条狗 阅读(296) 评论(0) 推荐(0)
delphi 计时方法 TStopwatch
摘要：1， GetTickCount 2， TStopwatch procedure TForm5.Button5Click(Sender: TObject);var sw: TStopwatch; i, j: Integer;begin j := 0; sw := TStopwatch.StartNew 阅读全文
posted @ 2020-09-10 10:22 黑贝是条狗 阅读(694) 评论(0) 推荐(0)
windows 临界区 InitializeCriticalSectionAndSpinCount以及InitializeCriticalSection的区别
摘要：InitializeCriticalSectionAndSpinCount和InitializeCriticalSection 都是临界区的一种初始化,可是前者多了 dwSpinCount 参数,这个参数的作用是在进入临界区的时候CPU自选计数 为什么要引用这个参数呢?在EnterCriticalS 阅读全文
posted @ 2020-09-10 10:09 黑贝是条狗 阅读(660) 评论(0) 推荐(0)
delphi fmx 控件从天上掉下来
摘要：可转载 请 标注 来源 procedure TForm4.FormCreate(Sender: TObject);begin FOldPostion := TStringList.Create;end; procedure TForm4.HideAllControl(vshow: boolean); 阅读全文
posted @ 2020-09-01 16:10 黑贝是条狗 阅读(609) 评论(0) 推荐(0)
delphi 内联函数 inline
摘要：内联函数 有的时候可以优化汇编代码，如下，应该是把Max 直接优化了，找不到 call max function Max(a,b:integer): Integer;inline;begin if a < b then Result := b else Result := a;end; proced 阅读全文
posted @ 2020-08-04 15:52 黑贝是条狗 阅读(983) 评论(0) 推荐(0)
Delphi 程序debug时，EEFFACE异常怎么解决？
摘要：此异常 ，网上众说纷纭，后来我发现，不能debug，是 宿主程序 可能禁止debug，检查宿主程序 是不是加了壳 或是有反调试代码，可能是c++编写的壳 解决方法： 要么去壳，或重新编译宿主程序 阅读全文
posted @ 2020-07-20 14:58 黑贝是条狗 阅读(292) 评论(0) 推荐(0)
delphi 动态布局，align = altop,如何保持顺序不变？
摘要：pnl_ep_p1.top := pnl_ep_p0.Top + pnl_ep_p0.Height; pnl_ep_p2.top := pnl_ep_p0.Top + pnl_ep_p0.Height; pnl_ep_p3.top := pnl_ep_p0.Top + pnl_ep_p0.Heigh 阅读全文
posted @ 2020-07-15 14:24 黑贝是条狗 阅读(684) 评论(0) 推荐(0)
fdmemtable 虚拟字段可编辑
摘要：//可编辑 fdmemtable.Fields.FindField('name').ReadOnly := false //跟进鼠标滚轴滚动 procedure TF100136.scrlbx1MouseWheel(Sender: TObject; Shift: TShiftState; Wheel 阅读全文
posted @ 2020-07-15 14:20 黑贝是条狗 阅读(282) 评论(0) 推荐(0)
delphi 10.4 新知识
摘要：https://theroadtodelphi.com/?tdsourcetag=s_pctim_aiomsg Delphi – Free Pascal – Oxygene July 1, 2020by Rodrigo Leave a comment Delphi IDE theme Editor 阅读全文
posted @ 2020-07-01 18:15 黑贝是条狗 阅读(1340) 评论(0) 推荐(0)
delphi 程序最小化和最大化都不在任务栏显示
摘要：delphi 程序不在任务栏显示 published procedure CreateParams( var Params: TCreateParams ); override; procedure WndProc(var Message: TMessage); override; procedur 阅读全文
posted @ 2020-06-30 15:39 黑贝是条狗 阅读(738) 评论(0) 推荐(0)
delphi xe10.4 破解
摘要：procedure TForm1.Button1Click(Sender: TObject); var dwProcessID, dwBaseOfDll: LongWord; wstrExeFileName, wstrDllName: WideString; var hProcess: THandl 阅读全文
posted @ 2020-06-18 17:05 黑贝是条狗 阅读(5738) 评论(0) 推荐(0)
delphi xe10 indy 表单post 方法， utf8编码
摘要：// 亲测 不会乱码var CuId,ModelId,sid : Integer; lmsg : string; Idc: TIdHTTP; Ptxt : string; postJson,jo :ISuperObject; rst : Boolean; lmfd: TIdMultiPartForm 阅读全文
posted @ 2020-06-11 09:12 黑贝是条狗 阅读(1015) 评论(0) 推荐(0)
delphi xe10.4新功能介绍
摘要：原链接 此文为使用 DeepL 机翻并进行了略微的调整。 在10.4中，我们重新实现了代码完成和其他功能，这是IDE十年来最重要的变化之一。 什么是 Code Insight 首先是一些背景。如果你对Code Insight很熟悉，请跳过前面…… Code Insight 是我们对编辑器中的一组 I 阅读全文
posted @ 2020-05-15 14:52 黑贝是条狗 阅读(6384) 评论(1) 推荐(1)
delphi 13位时间戳互转
摘要：//获取13或10位时间戳 时区固定了 好像有问题 function Gettamptime(vlen: Integer): string; var timen, time2: TDateTime; ss2, ss3: Int64; begin timen := now; time2 := Enco 阅读全文
posted @ 2020-05-13 14:37 黑贝是条狗 阅读(2514) 评论(0) 推荐(0)
delphi windows 程序DPI缩放设置
摘要：win10，win7系统里 程序经常变形，很可能是 windows 缩放比例大于100%，设置windows缩放比例比较麻烦，可以通过注册表设置程序的DPI缩放比例 unit uWindowsDPISet; interface uses Winapi.Windows, Registry; type 阅读全文
posted @ 2020-05-13 14:30 黑贝是条狗 阅读(2527) 评论(0) 推荐(0)
delphi 画五角星
摘要：最近开发一个预约功能，里面有个蛋糕甜度的选择 ，是用星号标识甜度，如 //用gdi画，也可以用 两个图标来回切换 uses GDIPOBJ, GDIPAPI; //画星星 procedure DrawStart(vcanvas: TCanvas;visfill: boolean = false); 阅读全文
posted @ 2020-05-13 14:25 黑贝是条狗 阅读(313) 评论(0) 推荐(0)