随笔分类 - [02] Delphi7
Delphi只是一个工具，算法最重要。
摘要：通过WinAPI GetCursorPos实现鼠标位置的实时显示 有时候我们需要将鼠标的位置实时抓取出来，可以通过如下方式实现。 添加一个Timer控件，执行间隔改为100ms，双击控件输入如下代码： 1 var 2 P: TPoint; 3 begin 4 GetCursorPos(P); 5 R
阅读全文
摘要：看如下代码： 1 WinExec('mspaint.exe', SW_SHOWNORMAL); // SW_SHOWNORMAL = 1 系统画图 2 3 WinExec('write.exe', SW_SHOWNORMAL); // SW_SHOWNORMAL = 1 写字板 4 5 WinExe
阅读全文
摘要：使用Pos函数来定位子字符串第一次出现的位置 函数定义： Function Pos(Substr: String, S: String): Integer; 表示取出Substr在S中第一次出现的位置，返回取到的位置 比如：Pos('a', '1234a'); //返回值为5 使用Copy函数来截取
阅读全文
摘要：StringReplace用法 在开发过程中，有时候我们需要对字符串进行替换操作，屏蔽或者和谐某些字符，可使用Delphi自带的函数StringReplace函数。 通过代码进行说明： //函数原型 function StringReplace(const S, OldPattern, NewPat
阅读全文
摘要：Delphi 实现可执行程序的自动升级 准备工作： 1：Delphi调用TIdHTTP方式开发程序，生成程序打包外壳 说明：程序工程命名为ERP_Update 界面布局如下： 代码实现如下： 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messag
阅读全文
摘要：Indy IdThreadComponent 线程研究 前几天在开发数据实时解析功能模块的时候，发现解析数据量巨大，特别耗时，程序一跑起来界面假死。 为了优化用户体验，采用了Indy 自带的IdThreadComponent控件，完美的解决了此问题。 下面就IdThreadComponent一些关键
阅读全文
摘要：在Delphi 7开发下有强大的Indy控件，版本为9，要实现一个FTP服务器，参考自带的例子，发现还要写很多函数，而且不支持中文显示文件列表等等。 于是，自己改进封装了下，形成一个TFTPServer类。 源码如下： 1 {*************************************
阅读全文
摘要：服务器自动邮件线程 功能：此程序主要实现对Oracle数据库表tableName（存放需要发送邮件的相关信息）里面相关信息的邮件发送。 优点：开发人员可以直接再数据库后台对tableName表进行插入操作，前台会自动发送相关邮件，高效开发。 界面布局： 代码实现如下： 1 unit uSendMai
阅读全文
摘要：idMessage / idSMTP 首先对idMessage类的各种属性进行赋值（邮件的基本信息，如收件人、邮件主题、邮件正文等），其次通过idSMTP连接邮箱服务器，最后通过idSMTP的Send方法将idMessage发送出去。 界面布局如下： 代码如下： 1 unit uMain; 2 3
阅读全文
摘要：FTP信息保存和获取 我们在做FTP相关开发时，为方便后续FTP切换，一般先把FTP账户信息保存到数据库表中，在使用时再通过Query获取出来。 一般通过如下方式获取到FTP相关信息，代码如下： 1 //获取FTP信息 2 with qTmp do 3 begin 4 Close; 5 SQL.Cl
阅读全文
摘要：本地路径的创建 在做下载操作时，我们一般先把文件下载到本地指定的路径下，然后再做其他使用。 为了防止程序出现异常，我们通常需要先判断本地是否存在指定的路径。 以C盘Tmp文件夹为例，我们可以这样做，代码如下： 1 if not DirectoryExists('C:\Tmp') then 2 if
阅读全文
摘要：创建文本文件 代码如下： 1 //创建一个文本文件 2 procedure CreateTextFile(); 3 var 4 TF: TextFile; 6 begin 8 AssignFile(TF,'C:\tmp\1.txt'); 9 ReWrite(TF); 10 CloseFile(TF)
阅读全文
摘要：1：单元格的值满足某个条件时，该单元格所在整行颜色设置整行字体设置 选中cxGridDBTableView，单击F11调出属性配置面板，在Events中双击OnCustomDrawCell后双击编辑重画事件代码。 代码如下： if '1' = AViewInfo.GridRecord.Values[
阅读全文
摘要：.xls格式导出，uses中添加cxGridExportLink 代码如下： 1 function SaveToExcel(gridMain: TcxGrid; FileName: string): string; 2 var 3 SaveFileDialog: TSaveDialog; 4 beg
阅读全文
摘要：在cxGrid中选中需要合并的字段，单击F11调出属性控制面板，展开Options，设置CellMerging的Value为True。 作者：Jeremy.Wu 出处：https://www.cnblogs.com/jeremywucnblog/ 本文版权归作者和博客园共有，欢迎转载，但未经作者同意
阅读全文
摘要：cxGrid设定字段类型为ComboBox 在cxGrid中选中需要设定的字段； 单击F11调出属性控制面板，在Properties下拉选项中选中ComboBox，完成字段类型的设定。 cxGrid ComboBox类型字段动态赋值，添加Item 动态赋值代码如下： 1 TcxComboBoxPro
阅读全文
摘要：cxGrid设定字段类型为CheckBox 1：设定OraQuery属性 CachedUpdates设定为True； 双击打开OraQuery，选中Update SQLs页面，Insert、Updates和Delete对应的输入框中输入相应的SQL语句； 2：设定cxGrid字段类型和属性 首先，选
阅读全文
摘要：cxGrid - 添加footer显示 1：添加Footer Items 单击cxGrid Customize... ，Summary，Add； 2：添加Footer items数据绑定 选中一条需要操作的Footer items，单击F11，调出属性框，根据Column列下来选项选则需要绑定的列。
阅读全文
摘要：Windows自动计划任务与ParamStr详解 ParamStr函数: ParamStr(1),..ParamStr(N) ParamStr(1)代表程序入口的第一个参数，同理，ParamStr(N)代表第N个参数。可通过如下操作进行参数的赋值。 例如： C盘下面有个1.exe可执行程序; 在Wi
阅读全文
摘要：cxGrid连接Oracle数据库 实现数据的增删改查 cxGrid连接Oracle数据库 1：通过OraSession连接数据库、OraDataSet实现OraSession和OraDataSource的连接，OraDataSource绑定cxGrid； 2：按如下1、2、3、4实现cxGrid字
阅读全文
浙公网安备 33010602011771号