![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
踏雪寻梅i
Winning Health☃☃
展开
-
Delphi通过ADOQuery控件实现Sqlserver数据库多结果集的数据打印
//引用单元:TADOQuery----------ADODBTppDBPipeline-----------ppDBPipeTDataSource-----------DBTppreport-----------ppReportTppDesigner-----------ppEndUsr//打印调用procedure TfrmMain.N1Click(Sender: TObject...原创 2018-04-05 18:39:48 · 1632 阅读 · 1 评论 -
Delphi快捷键
Delphi 快捷键(基于万一博客增加修改)分类快捷键解释备注组件设计类Escape选择当前组件容器 Shift + Click选择多个组件;选择窗体 Tab选择下一个组件 Shift + Tab选择上一个组件 ...转载 2018-04-06 11:58:29 · 187 阅读 · 0 评论 -
Delphi6及SqlServer对于生僻字䶮的支持测试
1.二进制SqlServer正像现场反馈的这样,后台字段只能以nvarhcar类型来保存,并且插入和更新的时候需要在字段前加’N’,例: update SF_BRXXK set hzxm=N’䶮’ 可参见:https://blog.csdn.net/chinahuyong/article/details/78558695 2.Delphi6当前的控件也无法显示该生僻字,需要安装TNT系...原创 2018-05-18 14:04:42 · 1765 阅读 · 0 评论 -
Delphi实现带有格式的Excel导出功能
功能预览 ## 运行预览 ## 代码实现//执行sql的函数procedure TForm1.GetReportData(astrsql:string);var strSQL,err:string; i:integer;begin strSQL :='set QUOTED_IDENTIFIER...原创 2018-07-17 10:30:48 · 5661 阅读 · 0 评论 -
Delphi无法修改Clientdataset的字段的解决方法
主题:解决clientdataset 自定义字段无法在前台修改值的问题;数据库里面直接取的字段从前台可以修改,但是自定义的返回字段无法修改。报错信息:error1:EDatabaseError with message ‘Field ‘选择’ cannot be modified如果仅仅修改cdsA.field[0].ReadOnly=false,在Post的时候会报error2:...原创 2018-08-06 09:09:05 · 3218 阅读 · 0 评论 -
Delphi调用C#的加密解密(Base64/AES/DES/MD5可扩充)
1. 背景:近期,由于工作上与第三方公司传输数据的时候需要采取数据加密,但是我们采用的时较低版本的Delphi 6;由于加密算法等差异,导致在传输的加密数据第三方一致解析不了(具体问题表现为base64加密中文乱码,AES加密方式的运算模式Mode,填充模式padding);限于代码的管理规范不能使用加密的插件,且网上搜索相关的delphi加密资料少之又少;故决定采取Visual Studio...原创 2018-08-17 10:33:45 · 2494 阅读 · 4 评论 -
Delphi中使用全局钩子
[转载] Delphi中使用全局钩子 Delphi中使用全局钩子 DLL代码:unit UnitDll;interfaceuses Windows;const BUFFER_SIZE = 16 * 1024; // 文件映射到内存的大小const HOOK_MEM_FILENAME = 'MEM_FILE'; // 映像文件名const...转载 2019-04-12 15:25:44 · 631 阅读 · 0 评论 -
Delphi编译指令了解学习
以下内容来源于网络,整理在一块儿方便以后回顾查看。Delphi 的编译指令(1) DEFINE、DEFINE、DEFINE、UNDEF、IFDEF、IFDEF、IFDEF、ELSE、$ENDIF一个程序从无到有的过程是这样的: 编辑代码 -> 预处理 -> 编译(成dcu等) -> 链接(为exe等).什么是预处理?譬如 VCL 中有很多代码是兼容 Linux 的, 在 ...原创 2019-04-12 15:57:21 · 1009 阅读 · 0 评论 -
Delphi通过RTTI实现TdxDBGrid,TDBGrid标题,列宽,显示顺序,字体大小颜色等动态配置
测试界面:配置界面:配置表代码实现:可以通过配置表,也可以通过配置文件保存,我这里试通过数据库表保存的。源代码下载地址:后台表结构设计(DBDsigner):if not exists(select 1 from sysobjects where name='YY_TABLE_DISPLAY' and type='U')begin create table YY_TABLE...原创 2019-04-12 16:23:01 · 1540 阅读 · 0 评论 -
Delphi实现点击按钮触发选择项, 进而实现不同的分支功能
1.实现按钮右击事件触发选择项添加一个TPopupMenu控件,设置按钮的PopupMenu属性为新增的TPopupMenu控件,即可完成右击出现选择项。2.实现按钮左击事件触发选择项添加一个TPopupMenu控件pm3,在按钮的Click事件中如下代码,即可完成左击出现选择项。procedure TfrmMain.rzbtbtn3Click(Sender: TObject);...原创 2018-04-05 21:56:52 · 1334 阅读 · 0 评论 -
Delphi的ComBobox控件下拉内容显示不全的解决方法
procedure TForm1.rzbtbtn1Click(Sender: TObject);var _I,_MaxWidth :integer;begin cbb1.Items.Add('abcd'); cbb1.Items.Add('abcdefghijqlmxopqrst'); cbb1.Items.Add('https://blog.csdn.net/...原创 2018-04-05 19:10:37 · 2826 阅读 · 0 评论 -
FindChildControl与FindComponent(动态创建的控件要通过Owner.FindComponent去找该控件)
前两天编码遇到了要使用FindChildControl方法获取指定名称的TSpeedButton按钮,结果折腾了半天就是没得结果(基础不扎实,呵呵),于是赶紧搜索了下,补习关于这两个方法的用法。 &nbs...转载 2018-04-05 19:32:57 · 1254 阅读 · 0 评论 -
Delphi中Messagedlg用法
Delphi中Messagedlg用法if MessageDlg('即将退出,是否继续?', mtConfirmation, [mbYes, mbNo], 0) = mrYes thenbeginClose; end;对话框类型:mtwarning——含有感叹号的警告对话框mterror——含有红色叉符号的错误对话框mtinformation——含有蓝色i符号的信息对话...翻译 2018-04-05 19:42:58 · 3520 阅读 · 0 评论 -
Delphi的MessageBox对话框使用
MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容、信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Wo...转载 2018-04-05 19:47:46 · 3780 阅读 · 0 评论 -
Delphi通过LoadLibrary调用其他动态库
procedure TFrmrydj.btnJYJJClick(Sender: TObject);type Tfzyb_yjjgl=procedure;stdcall; var LibHandle: THandle; fzyb_yjjgl:Tfzyb_yjjgl;begin try LibHandle := LoadLibrary('zyb_yjjgl....原创 2018-04-05 19:55:09 · 4331 阅读 · 0 评论 -
Delphi创建对象时,Application、Self、nil三者的区别
Delphi创建对象时,Application、Self、nil三者的区别***.Create(AOwner:TComponent); //AOwner:创建者Create(nil);//这种方式创建的对象需要自己释放内存 Create(Self);//由self对象负责释放创建的对象,当Self释放时自动触发释放Create(Application);//当Applicatio...原创 2018-04-05 19:58:41 · 1676 阅读 · 0 评论 -
Delphi如何获取本机IP地址
Delphi获取本机IP地址//获取本机IPfunction TKSMsgLog.GetLocalAddress:String;type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe : PHostEnt; pptr : PaPInAddr; Buffer...原创 2018-04-05 20:01:10 · 2195 阅读 · 0 评论 -
Delphi的TdxDBGrid自带的一些有用的导出文件的函数(EXCEL、HTML、XML、TXT、INI、Registry等)
procedure TfrmMain.TranslateToSomeThing(const aFileType : string);var _dxDBGridTemp : TdxDBGrid; _FileName : string;begin //1 找到需要到处的数据源 _dxDBGridTemp := TdxDBGrid(findcomponent('TdxDBGr...原创 2018-04-05 20:16:22 · 626 阅读 · 0 评论 -
Delphi多线程详解CreateThread、TThread,以及线程间通过"临界区"(CriticalSection)实现同步
在了解多线程之前我们先了解一下进程和线程的关系一个程序至少有一个主进程,一个进程至少有一个线程。为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html主线程又程为UI线程。进程和线程的主要差别在于...转载 2019-04-13 16:06:25 · 1286 阅读 · 0 评论