![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
qq_39951605
这个作者很懒,什么都没留下…
展开
-
delphi6直连redis服务(用lua脚本redis模块)
用低版本的delphi6对接redis直接功能,目前只有get/set方法,待以后继续追加。原创 2024-05-07 17:06:23 · 253 阅读 · 0 评论 -
delphi 图片jpg多张拼接到一张jpg
【代码】delphi 图片jpg多张拼接到一张jpg。原创 2023-04-06 09:52:35 · 458 阅读 · 0 评论 -
Delphi SoftKeyBoard自定义软键盘
delphi 软键盘 自定义原创 2022-12-19 08:54:09 · 427 阅读 · 0 评论 -
delphi superobject轮循解析
delphi superobject原创 2022-10-29 09:23:55 · 658 阅读 · 0 评论 -
delphi 跟随按钮/鼠标焦点自定定位并显示panel
delphi 跟随按钮/鼠标焦点自定定位并显示panel原创 2022-10-26 17:58:03 · 398 阅读 · 0 评论 -
delphi 指针内容参照文档
指针、数组、记录、地址、整数原创 2022-10-23 00:03:09 · 142 阅读 · 0 评论 -
delphi转码url(与java保持一致)
function URLDecode(const S: string): string;var Idx: Integer; // loops thru chars in string Hex: string; // string of hex characters Code: Integer; // hex character code (-1 on error)begin // Intialise result and string index Result := ''.原创 2022-05-06 19:21:25 · 644 阅读 · 0 评论 -
Delphi_TButtonGroup点击定位Button的索引
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ButtonGroup, Vcl.StdCtrls;type TForm1 = class(TForm) ButtonGroup1: TButtonG.原创 2021-10-28 19:46:39 · 324 阅读 · 0 评论 -
Delphi_TCategoryButtons找到当前焦点的Button及Item的索引
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.CategoryButtons, Vcl.StdCtrls;type TForm1 = class(TForm) CategoryButtons1: .原创 2021-10-28 19:23:41 · 401 阅读 · 0 评论 -
delphi_postjson
unit YSL_ConsumeIntf;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdHTTP, IdHashMessageDigest, superobject;type TConsume = record cardSnr: string; //卡序列号 clientTra.原创 2021-10-18 14:08:55 · 695 阅读 · 0 评论 -
Delphi IdHttp.Get方法
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DateUtils, IdHTTP, IdHashMessageDigest, Pos_Log, superobject;type T...原创 2018-09-14 14:51:34 · 2557 阅读 · 0 评论 -
Delphi MD5加密[和Java的MD5加密结果一致]
//MD5加密字符串function TWorkWindowForm.ret_mymd5(const sVaule: string): string;var mymd5: TIdHashMessageDigest5;begin try mymd5 := TIdHashMessageDigest5.Create; Result := (mymd5.AsHex(mymd...原创 2018-09-13 17:06:27 · 1047 阅读 · 0 评论 -
Delphi 请求时间,为当前时间,数值为1970-01-01以来的毫秒数
//和Java获取的数值一致function TWorkWindowForm.GetJavaTime(d: TDateTime): Int64;var dJavaStart: TDateTime;begin //java里的时间是从1970年1月1日0点到当前的间隔 dJavaStart := EncodeDateTime(1970, 1, 1, 0, 0, 0, 0); ...原创 2018-09-13 17:04:25 · 1450 阅读 · 0 评论 -
delphi 记录类型保存为二进制文件
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyRec = record //定义Record Name: string[10]; Sex: str...原创 2018-09-08 18:07:33 · 1597 阅读 · 0 评论 -
Delphi cxGridExportToExcel
//cxGrid导出到Excel:通过数据集的方式导出------>数据量大时,还待继续优化,尽量加快导出Excel速度//需要应用单元ComObjfunction TWorkWindowForm.DataSetToExcel(cds_Temp: TClientDataSet; AcxGridDBTableView: TcxGridDBTableView; ToSavePath:st...原创 2018-09-06 08:55:44 · 1935 阅读 · 0 评论 -
Delphi 2010下载、安装及常见报错解决方法
1、下载Delphi2010_3615版本下载地址:http://altd.embarcadero.com/download/RADStudio2010/delphicbuilder_2010_3615_win.iso2、安装序列号 HAAL-DANSGN-FZR5AG-M3BS JAAL-SCDKV6-ETH2SG-KBAN3、破解步骤: a、下载破解补丁:...原创 2018-09-09 18:35:43 · 3663 阅读 · 3 评论 -
delphi 手机号/Email/传真号验证有效性
//Email验证function TDeptCaptionFrm.EMailAddCheck(EmailAdd: string; var Errorcode: string): Boolean; function CheckAt(s: string): integer; var num, t: integer; begin num := 0; t := p...原创 2018-09-12 10:34:44 · 1268 阅读 · 0 评论 -
delphi 副屏最大化和居中等Info
if Screen.MonitorCount>1 then begin ClientScreenFrm.Top := Screen.Monitors[1].Top; ClientScreenFrm.Left := Screen.Monitors[1].Left; ClientScreenFrm.Width := Screen.Monitors[1].Width;...原创 2018-09-12 16:50:58 · 481 阅读 · 0 评论 -
Delphi 获取DataSet传入参数后的SQL命令
ClientDataSet1.CommandText := sSQL; ClientDataSet1.Params.Clear;ClientDataSet1.CommandText :='SELECT * FROM test WHERE ID=:TID and Code=:Code '; //传参后面加一个空格ClientDataSet1.Params.ParamByName('TID...原创 2018-09-17 15:42:00 · 1139 阅读 · 0 评论 -
delphi 调用C语言的动态库DLL函数
一、C语言函数原型1、接口函数定义函数原型void card_trans(int com,char * pUpdata,char * pDownData);返回值为0时,交易成功,非0时为交易失败。2、调用传入参数定义传入首地址必须符合结构体pUpdata,传出首地址必须符合结构体pDownData.结构体pUpdata和pDownData的定义分别如下:typedef str...原创 2018-09-13 09:52:37 · 2228 阅读 · 0 评论 -
Delphi Excel 操作大全【CreateOleObject( 'Excel.Application' )】
(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Micro...转载 2018-09-18 16:38:54 · 11875 阅读 · 0 评论 -
Delphi DataSetToExcel的三种方法
function TWorkWindowForm.DataSetToExcel(cds_Temp: TClientDataSet; AcxGridDBTableView: TcxGridDBTableView; ToSavePath:string; var sMsg: string): Boolean;var XLS,WorkBook,WorkSheet: variant; i,...原创 2018-09-13 16:09:27 · 1087 阅读 · 0 评论 -
Delphi6 cxgrid导出excel
//引用单元 Dialogs, cxExportGrid4Link, comobj//例子procedure TWorkWindowForm.btn1Click(Sender: TObject);begin inherited; CxGridToExcel(grdOpenInDetail);end;//定义procedure TWorkWindowForm.CxGridToE...转载 2018-09-05 09:49:32 · 271 阅读 · 0 评论