随笔分类 - Delphi相关
摘要：原文：https://www.cnblogs.com/guorongtao/category/1488278.html
阅读全文
摘要：枚举类型第1个元素值为0，第2个值为1，依此类推，可以用Ord来获取 例如：有枚举类型 E_ScreenColor_G56 = (eSCREEN_COLOR_NUll, eSCREEN_COLOR_SINGLE, // 单基色1 eSCREEN_COLOR_DOUBLE, // 双基色 eSCREE
阅读全文
摘要：https://blog.csdn.net/pulledup/article/details/108139748
阅读全文
摘要：Delphi 在任务栏隐藏程序图标 原文：https://www.cnblogs.com/findumars/p/4740482.html 方法一：1、修改工程文件中的“Application.MainFormOnTaskbar := True;”为“Application.MainFormOnTa
阅读全文
摘要：https://www.cnblogs.com/DxSoft/archive/2010/04/26/1721060.html
阅读全文
摘要：解决方案 TIdHTTPServer的onCommandGet方法有三个参数，分别是上下文，请求体，响应体。我们只需要在响应体中加上Access-Control-Allow-Origin、Access-Control-Allow-Headers、Access-Control-Allow-Method
阅读全文
摘要：转自：https://www.cnblogs.com/chenmfly/p/4541353.html 1．TClientDataSet的基本属性和方法介绍 1)．FieldDefs: 字段定义列表属性 开发者可通过单击属性编辑器中该属性编辑按钮，或在该控件上单击右键选择弹出菜单中的"Fields E
阅读全文
摘要：原文：https://blog.csdn.net/yangjian900109/article/details/50342439?locationNum=1&fps=1 TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该
阅读全文
摘要：1.首先获取当前本地所有的打印机 单元需要引用'Printers' 通过Printer.Printers获取打印机列表，存到配置文件或者是键值对中 2.frxReport.PrintOptions.Printer 打印的时候用取到的打印机名称对这个属性进行赋值就可以了。 示例代码：Unit1.pas
阅读全文
摘要：https://590m.com/dir/1041485-3049764-93c76d
阅读全文
摘要：Delphi盒子 www.2ccc.com 2Pascal-新时代的Pascal http://www.2pascal.com WeDelphi http://www.WeDelphi.com 新大富翁论坛 http://www.dfwlt.com/forum.php 万一的博客：http://ww
阅读全文
摘要：Indy 10的安装和老版本的卸载 Indy 10下载地址： http://www.indyproject.org/downloads/10/indy10.0.52_source.zip Indy 10 安装步骤 1、解压压缩包。 2、打开\System\IndySystem70.dpk，点Comp
阅读全文
摘要：function get_dir_parent(dir:string;n:integer):string; //n为几级父目录varst:string;i:integer;begin st:=GetCurrentDir; SetCurrentDir(dir); for i:=1 to n do be
阅读全文
摘要：因为要调用windows的api或者给vc++写接口，很多地方都要用到pchar，现在将char数组、string和pchar之间的相互转换都列出来，都是网上找的资料，我总结一下，先直接上代码，再讲原理。 1.string转换成pchar 可以使用pchar进行强制类型转换，也可以使用StrPCop
阅读全文
摘要：开发环境：Delphi7 测试环境：WinXP，Win7 32bit，Win7 64bit 使用TClientSocket和TServerSocket实现TCP长连接通讯，经常因为断电断网等原因导致出现一些死连接。 解决方法是客户端和服务端都定时发送心跳包。 具体实现如下： TClientSocke
阅读全文
摘要：https://blog.csdn.net/pdw2009/article/details/76157651 使用RzPageControl来实现多标签页使用菜单来打开标签页,通过标签页的caption来判断将标签页是否已经被打开过了. 1.创建标签页,并判断是否是已经打开过的页面 gotopage
阅读全文
摘要：左键双击关闭pagecontrol中的一个分页即一个tabsheet,功能像遨游浏览器一样
阅读全文
摘要：远行效果: 实现代码： procedure TfrmMain.OpenForm(Caption,FormClassName:string);var i:integer; sheet:TUniTabSheet;begin for i := 0 to pgeMain.PageCount-1 do beg
阅读全文
摘要：方法一：delphi中递归算法构建treeView 过程：通过读取数据库中table1的数据，来构建一颗树。table1有两个字段：ID,preID，即当前结点标志和父结点标志。所以整个树的表示为父母表示法。本递归算法不难写，但是要注意：程序内部的变量都应使用局部变量！比如当Query是外部变量（函
阅读全文
摘要：https://blog.csdn.net/lotusyangjun/article/details/8203521 一、在Setlength 被调用次数不多时，可直接使用以下代码进行释放var aa: array of integer; procedure TForm1.Button1Click(
阅读全文
浙公网安备 33010602011771号