DELPHI
delphi实现点击列头按隐藏列排序方法
场景：某字段应为数字但由于历史原因被定义为字符串，点击需按数字的要求进行排序实现原理：判断如果是点击某一列头则调用一次查询，通过传排序规则给后台，由后台将排好序的结果返回给前台实现办法：采用onclicktitle 方法 第一步，保存当前排序规则 sSortFieldName := gdQuery. ......
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 ......
小甲鱼delphi学习作业20《浅谈过程与函数02》
一、本节重点： 过程传值、传址、常量参数； 二、三种传递方法 （一)、传值 1、软件效果 2、代码： 1 procedure Tform1.mypro(str:string); //传值过程定义 2 begin 3 str:='学习编程'; 4 showmessage(str); 5 end; 6 ......
delphi 运行时动态获取控件（类）属性值
运行时动态获取控件（类）属性值 代码 运行时根据控件名称获取Caption属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRtti ......