随笔分类 - Delphi学习笔记
摘要：需求说明: 程序设计: 效果演示: 设计思路: FrmCK 只负责发布事件，不关心谁在监听. FrmGrid 只负责响应事件，不关心事件来源. 创建过程: 一.创建接口单元FrmInterface.然后在单元中需要声明两个接口,即监听事件的接口和发布事件的接口 1.监听接口只需要声明一个过程即可,它
阅读全文
摘要：效果展示: 核心代码: procedure TMain.scAdvancedListBox2Items0Click(Sender: TObject); //单位设置 begin //获取点击的按钮的caption属性 var i := TscAdvancedListBox(Sender).ItemI
阅读全文
摘要：使用 AnsiToUtf8 方法转换一下就可以了 procedure TForm1.LoadSettingsFromIni; var IniFile: TIniFile; begin IniFile := TIniFile.Create(FIniFilePath); try UserNameEdit
阅读全文
摘要：重要提示: xls后缀的文件与xlsx后缀的文件,连接方法不一样. 可以使用代码来实现: FDConnection1.Connected := false; FDConnection1.Params.Clear; FDConnection1.DriverName := 'ODBC'; FDConne
阅读全文
摘要：一.设置文本属性. 注意到,在CELL这个方法中,与我们常用的VBA参数的写法是相反的. DELPHI先列后行: property Cells[ACol, ARow: Integer]: string read GetCells write SetCells; VBA先行后列: CELLS(ROW,
阅读全文
摘要：设置视图: 运行效果: unit HideWindown; interface uses Windows, Messages, SysUtils, Classes, Forms, StdCtrls, ActiveX, ComObj, ShellAPI, Tlhelp32, Vcl.Controls,
阅读全文
摘要：在窗体中插入TApplicationEvents控件,然后设置它的onMessage事件即可 procedure TForm1.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean); var AktywnaForma: TFo
阅读全文
摘要：效果如图所示: 核心代码: procedure TForm1.Button1Click(Sender: TObject); var AIndex, I, ATotalSelectedCount, ASelectedRecordsCount: integer; AMasterView: TcxGrid
阅读全文
摘要：一.创建一个DLL项目 二.把验证过没有问题的函数写到DLL项目中 三.生成DLL 拿到了DLL 四.调用DLL 通常DLL调用的声明语句都会写在 implementation之上或者之下,区别是作用域不同.唯一的要求是:声明语句必须要在调用语句之前!!! unit Unit1; interface
阅读全文
摘要：TDictionary 是一个开放哈希表，支持泛型，并提供了以下常用属性和方法： 属性： Count：返回字典中元素的数量。Keys：返回字典中所有键所组成的动态数组。Values：返回字典中所有值所组成的动态数组。 方法： Add：向字典中添加一个键和其对应的值。Clear：清空字典中的所有元素。
阅读全文
摘要：我经常让GPT写一些简单的代码,它确实也能给出相对满意的结果,但是这单元的名称总是和我的不一样 我们在delphi中新建新项目名称一般都是Unit1,所以我们首先要先把Unit1修改成与GPT一样的名称才可以. 首先是保存我们的新项目,然后关闭.当然里面是空白的,什么代码和控件都没加.保存后这是新项
阅读全文
摘要：感谢我宅猫大哥的热心指导. 启动时等待验证码. 输入验证码后,等待处理数据 处理完成后,显示数据 实现原理:利用已有的账号和密码登录后产生的cookie,向服务器请求数据.返回的数据是JSON格式,后期需要自己整理. 注意,请在程序中使用同一个TnetHttpClient控件来完成.因为里面保存了c
阅读全文
摘要：首先说明一下,这是我平生第一次接到 接口文档,认知有限,写得不对的地方,请大佬们多多指点. 下面是一个智能刀具柜关于库存查询的接口文档: 上面的参数中,appid 和 sign中的appsecret和macno是设备的常量值,要问设备服务商给. 上面的接口要分别设置header头和请求参数.而POS
阅读全文
摘要：转载自:WIn7 下使用 NetHttpClient 请求HTPPS 网站 - EEEEEEEEEEEEEEEEEEE - 博客园 (cnblogs.com) WIn7 下使用 NetHttpClient 请求HTPPS 网站 在WIN7 下使用 HttpClient 会报以下两种错 ;1 Serv
阅读全文
摘要：转载自: delphi读写INI文件_delphi写数据到ini_苏生米沿的博客-CSDN博客 Delphi提供了读写INI文件的方法，Delphi操作INI文件最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。 一、INI文件的结构：;注释[小节名]关
阅读全文
摘要：有多少人是因为SetComputerName无效之后找到这里的?请在评论区报一下名. uses ShellAPI,windows; procedure TForm1.ChangeComputerName(const NewName: string); var Command: string; New
阅读全文
摘要：一.TFDMemTable控件不依赖数据库,可以独立保存数据(运行期间)和使用. 这种情况下,我们只能通过 [新建字段] 来建立数据字段. 上面的 [添加字段] 和 [添加所有字段] 都是要与数据库连接之后才能用. 这里提示一下各位.字段要加好以后再往里面录数据,如果先录了数据,然后再添加或者删除字
阅读全文
摘要：本例需要读取excel中的数据,然后动态的添加到TSCTreeView控件当中 . 最终效果如下图: 核心代码如下: procedure TForm1.FormCreate(Sender: TObject); var n: Integer; t: TTreeNode; I: Integer; beg
阅读全文
摘要：一.工具界面如下(没做UI) 二.设计视图如下: 三.控件说明: 1.使用到了第三方StyleControl控件中的SCGPLabel,SCGPEdit,SCGPCheckBox,SCGPCombobox,SCGPButton,这几个控件如果需要,可替换成系统自带控件.难度-1 2.TrayIcon
阅读全文
摘要：uses System.SysUtils, System.IOUtils; procedure TForm1.Button1Click(Sender: TObject); var CreationTime, LastWriteTime: TDateTime; begin CreationTime :
阅读全文
浙公网安备 33010602011771号