variant tstream delphi
delphi 提示 Access violation at address 014CA924 in module 'EBD.exe'. Read of address 0D1A0000排查
通过类似 Access violation at address 014CA924 in module 'EBD.exe'. Read of address 0D1A0000 提示查看代码出错的行。 1、开启map project -> options -> Linker -> Map file 选 ......
delphi实现点击列头按隐藏列排序方法
场景：某字段应为数字但由于历史原因被定义为字符串，点击需按数字的要求进行排序实现原理：判断如果是点击某一列头则调用一次查询，通过传排序规则给后台，由后台将排好序的结果返回给前台实现办法：采用onclicktitle 方法 第一步，保存当前排序规则 sSortFieldName := gdQuery. ......
C++17 更通用的 union：variant
References 现代C++学习——实现多类型存储std::variant 如何优雅的使用 std::variant 与 std::optional std::variant 是 C++17 中，一個新加入標準函式庫的 template 容器；他的概念基本上是和 union（參考）一樣，是一個可 ......
delphi 学习如何登陆网站下载文件
感谢我宅猫大哥的热心指导. 启动时等待验证码. 输入验证码后,等待处理数据 处理完成后,显示数据 实现原理:利用已有的账号和密码登录后产生的cookie,向服务器请求数据.返回的数据是JSON格式,后期需要自己整理. 注意,请在程序中使用同一个TnetHttpClient控件来完成.因为里面保存了c ......
Delphi模拟鼠标点击
1 var 2 FindW:HWND; 3 begin 4 findw:=FindWindow(nil,'欢迎使用百度网盘'); 5 sendmessage(FindW,messages.WM_LBUTTONDOWN ,0,$00250107); 6 sendmessage(FindW,messag ......
delphi 遍历集合类型
遍历集合类型 代码 通过 for-in 循环遍历 uses System.TypInfo; procedure TForm1.Button1Click(Sender: TObject); var vAnchors: TAnchors; vAnchor: TAnchorKind; begin vAnc ......
关于Delphi
# 关于Delphi ··Delphi中使用的面向对象pascal编程语言。 ··Pascal语言最初由瑞士苏黎士理工学院的尼古拉斯-沃斯(Niklaus Wirth)教授在1971年设计。 ··1983年Borland公司推出了世办闻名的Pascal编译器--Turbo Pascal,成为当时最畅 ......
Delphi获取当前系统时间（使用API函数GetSystemTime）
在开发应用程序时往往需要获取当前系统时间。尽管Y2K似乎已经平安过去，但在我们新开发的应用程序中还是要谨慎处理“时间”问题。 在《融会贯通--Delphi4.0实战技巧》(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法，但这两种方法都存在不足或错误，以下就此进行讨论。 该书第一种方法 ......
delphi 时间格式化，动态显示时间，显示最新时间
动态显示时间（需要Timer控制的支持，以下代码放到Timer事件中） Label1.Caption := FormatDateTime('yyyy-mm-dd hh:mm:ss' , Now); 显示当前时间(放在窗体的OnShow事件中) edit1.text:=FormatDateTime(' ......
Delphi 官方 MD5
去官方文档搜就行了，引入System.Hash 单元： http://docwiki.embarcadero.com/Libraries/Athens/en/System.Hash.THashMD5 unit Unit4; interface uses Winapi.Windows, Winapi. ......
delphi 第一次接触与配置接口
首先说明一下,这是我平生第一次接到 接口文档,认知有限,写得不对的地方,请大佬们多多指点. 下面是一个智能刀具柜关于库存查询的接口文档: 上面的参数中,appid 和 sign中的appsecret和macno是设备的常量值,要问设备服务商给. 上面的接口要分别设置header头和请求参数.而POS ......
DELPHI WIn7下使用 NetHttpClient 请求HTPPS 网站
转载自:WIn7 下使用 NetHttpClient 请求HTPPS 网站 - EEEEEEEEEEEEEEEEEEE - 博客园 (cnblogs.com) WIn7 下使用 NetHttpClient 请求HTPPS 网站 在WIN7 下使用 HttpClient 会报以下两种错 ;1 Serv ......
delphi ide优化设置(陆续整理)
目前整理至delphi 11版本 即VER360 1、编译优化： 不勾选：Tool-Options-IDE-Compiling and running- Show Compilerprogress 不勾选：Tool-Options-IDE-Compiling and running- Show Co ......
delphi dev cxLookupComboBox 模糊搜索
//不是过滤DATASET,适合用在下拉数据很多的情况。过滤的必须是下拉有添加的列 procedure cxLookupComboBoxLikeSearchInitPopup(Sender: TObject); var FEdit: TcxLookupComboBox absolute Sender ......
小甲鱼Delphi教程37课《读写修改记录型文件》源码
说明：本程序用delphi10.4重写编写 一、最后效果 二、源码 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Cla ......
delphi:传递参数的几种方式（转载）
原文地址：https://www.delphitop.com/html/chengxu/2732.html 一、默认方式以值方式传递参数 procedure TForm1.ProcNormal(Value: string); begin OrigNum:=Value+' Me'; lblReturn ......
delphi电子处方流转(医院)
作者QQ：（648437169） 【delphi电子处方流转(医院)】支持 就诊登记、电子处方上传预核验、处方处方医保电子签名、电子处方上传、电子处方撤销、电子处方信息查询、电子处方审核结果查询、电子处方取药结果查询、电子处方药品目录查询等功能。 ......
delphi电子处方流转(药店)
作者QQ：（648437169） 【delphi电子处方流转(药店)】支持 处方下载、处方核验、处方审核、药品销售出库明细上传、药品销售出库明细撤销等功能。 ......
delphi 路径操作函数
路径操作函数 System.SysUtils.AnsiCompareFileName 根据当前语言环境比较文件名。 在 Windows 下不区分大小写，在 MAC OS 下区分大小写。 在不使用多字节字符集 (MBCS) 的 Windows 区域设置下，AnsiCompareFileName 与 A ......
Log4Delphi日志学习
转载请注明出处：https://www.cnblogs.com/coder163/p/9309717.html https://log4delphi.sourceforge.net/tutorial.html Log4D下载： 官网地址 导入Delphi：Tool-->Options-->Envir ......
Delphi图像处理中ScanLine的使用
一般我们在Delphi中进行图像处理时采用Pixels像素点赋值的方法，Delphi代码如下： varx,y:Integer;cColor:TColor;begin for y:=0 to Image1.Height-1 do for x:=0 to Image1.Width-1 do cColor ......
Delphi 用TDatasetToJSONBridge原生支持DataSet导出Json（转红鱼儿）
Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 1 procedure TForm18.Button2Click(Sender: TObject); 2 var 3 cV: TDatasetToJSONBridge; 4 jo: Tjsonobject; 5 be ......
调用Delphi DLL 注意事项
1. 使用统一的调用约束(__stdcall) 2. array of 调用 delphi 接口: procedure ProcessArray(const Arr: array of Integer); stdcall; VC： typedef void(__stdcall *ProcessArr ......
Delphi 10.x 提示脚本错误的解决方法
Delphi 10.x 提示脚本错误的解决方法 解决办法如下： 10.1版本修改方法： 打开注册表，在cmd中输入regedit,以管理员的身份运行， 找到HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\18.0\Known IDE Packages项， 找到$ ......
解决升级到 Delphi 12 后遇到 SQLite 不兼容的问题
今天升级到 Delphi 12 后，编译运行原来的项目，出现“[FireDAC][Phys][SQLite][sqlite3]-303.Capability is not supported”的错误。 经过查找文档，发现是FireDAC SQLite 版本更新导致的。 RAD Studio 12.0 ......
存储过程返回多数据集 Delphi 中处理方法
1.在C# 中我们可以通过DataSet 来接收多个数据集，但在Delphi 中没有这样的集合对象，因此处理起来稍微麻烦点，不过还是能处理的。这里举个例子： Oracle Code --包头 create or replace package mypackage is type cur_type i ......
Delphi做记事本
一、打开，保存等组件在什么地方 1.组件在Dialogs内 2.点击组件栏右下箭头后进行搜索 3.需要添加如下组件 4.打开文件代码： 1 {$R *.dfm} 2 var 3 Lujing:String; 4 procedure TForm1.OpenExecute(Sender: TObject ......
delphi 运行时动态设置控件（类）属性值
运行时动态设置控件（类）属性值 代码 运行时根据控件名称设置Alignment属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRt ......
小甲鱼delphi学习作业23《围观窗体与组件01》
1.实现字体一个一个出现的代码： 1 implementation 2 3 {$R *.dfm} 4 var 5 str1:string; 6 n,i:Integer; 7 8 procedure TForm1.FormCreate(Sender: TObject); 9 begin 10 str1 ......