我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。 事情经过： 今日下午用THTTPClient.Post方法 提交的时候，服务端老是自动过滤掉，百思不得其解。花费近2小时调试 检查了很多遍程序 依然不行。于是就开始怀疑 THttpClient的问题，我切换成in
作者： 老衲
学习中的一些牢骚。栈/堆地址标准写法。
我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。下面是我的写法，如果有更简单的方法，请留言告知。 本人再学习的过程中，遇到很多难题，delphi很多地方自身的设计就很乱。 比如对参数修饰符的理解，网上100篇文章 90篇都有问题 错误率非常高。delphi 的数据类型有很多 同一个参数修饰符 修饰 不同
泛型数组清空数据
我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知 我是怀疑泛型数组 setlength后会不会清零，弄了个小demo，不知道为什么我会有这个想法，难道是我看数据结构入魔了，记得记录指针需要另类释放问题。 记不清了 脑袋完蛋了 上demo ，事实证明setlengt
Qxml如何添加cdata
我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。 我们再使用的时候，往往需要包含这些特殊字符，要求保持这些特殊字符不变。 这个时候就需要用<![CDATA[ 我是保持不影响XML解析的特殊字符”<>’等 ]]
QXML转义问题
我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。 procedure TForm4.btn1Click(Sender: TObject); var MyQXML: TQXML; begin MyQXML := TQXML.Create; try m
Qjson中把json字符串，当做子节点的方法
我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。 procedure TForm4.btn2Click(Sender: TObject); const //外部的一个Json做子节点 AJsonStr = ‘{“name”:”奥巴马”,”age”:18}’; v
qjson中把记录或类型或泛型数组转换为json字符串
我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。如果有比我的写法更简单的方法，请留言告知。 unit Unit4; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Class
检测进程是否存在，简单方法。求更简单方法~~
我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。下面是的写法，如果有更简单的方法，请留言告知。 function CheckProcessExist(const AFileName: string): Boolean; var //用于获得进程列表 hSnapshot: THandle; //用于查找进
新版 THttpClient组件同步下载文件方法。
我一直都在寻找各种业务功能的最简单写法，用减法的模式来开发软件。下面是我下载文件的写法，如果有更简单的方法，请留言告知。 unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants