摘要： ZJson:TJSONObject; arrJson:TJSONArray; subjson:TJSONObject; ZJson:=TJSONObject(GetJSON('.....Json字符串....')); //后面json变量的都不能用创建，否则会无法释放内存 //以前用了arrJson 阅读全文

摘要： 1、在线程中改UI TThread.Synchronize(Nil,procedure begin Form1.Label12.Caption:='共'+IntToStr(zs)+'张图片，正在处理第'+IntToStr(i)+'张'; end); 2、在子程中改UI Application.Que 阅读全文

摘要： 1、安装UniqueInstance组件（可下载包安装，也可以在线安装）2、在窗口中加TUniqueInstance控件。在system的选项卡下，一个红色1的控件3、设置TUniqueInstance的enabled为真4、在UniqueInstance1OtherInstance事件中加处理程序 阅读全文

摘要： 比如登录系统用的是Myname这个用户。而后又用su进入root用户后，如果没有退出root就运行所开发的程序，可能中文输入法无法调用。 可以写以下程序判断是否登录用户与当前运行用户是否一致。 type ptpasswd = ^tpasswd; cint=LongInt; tpasswd = rec 阅读全文

摘要： 如果您的 Indy 应用程序中存在内存泄漏，那是因为您使用了 IdStack 或 IdThread 单元，或者依赖于它们的组件。这是设计使然，在 Delphi 中，通过向内存管理器注册泄漏来抑制泄漏报告。此功能不适用于 Free Pascal，但您可以删除故意的内存泄漏。在文件 IdCompiler 阅读全文