一、DataSet转JSON //1）数据集转换为JSON字符串： //需USES System.JSON; function DataSetToJson(ADataset: TDataSet): string; // [{"CityId":"18","CityName":"西安"},{"CityId":"53","CityName":"广州"}] var LRecord: string

       与一般的数据集组件不同，TClientDataSet使用的技术比较特别，本着高速度、低存储需求的原则TClientDataSet的内部使用了两个数据存储源。第一个是其Data属性，这是当前内存数据的视图，反映了所有的数据改变。如果用户从数据中删除一条记录，则此记录将从Data中消失，相应地，加入一条新记录后，此记录便存在Data属性中了。另一个数据源是Delta属性，故名思义，即增量

对象的方法能定义成静态(static)、虚拟(virtual)、动态(dynamic)或消息处理(message)。请看下面  的例子： TFoo = class  procedure IAmAStatic;  procedure IAmAVirtual; virtual;  procedure IAmADynamic; dynamic;  procedure IAmAMessage(var M:

[Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (生成新的GUID，点击 工具|在IDE中生成GUID。) AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675} ;程序名 AppName=ISsample ;版本号 AppVerName=ISsample 1.0.0.0 ;发布者名 AppPu

所用D5 D7版本,D5存在此问题,D7不存在此问题 解决方法: 不用更新Ado，是Ado的bug，可以通过先关闭ado的记录集后关闭ado解决 if     (adoQuery1.active)   then  begin          adoquery1.recordset.close;       adoQuery1.Close   ;  end; 

转自：http://blog.csdn.net/ahao1985507/article/details/39182977 一个比较完整的Inno Setup 安装脚本，增加了对ini文件设置的功能，一个安装包常用的功能都具备了。 [plain]  view plain copy [Setup]   ; 注: AppId的值为单独标识该应用程序。   ; 不要为其他安装程序使用相同的AppId值。 

  字符串处理函数 Unit System 函数原型 function Concat(s1 [, s2,..., sn]: string): string; 说明 与 S := S1 + S2 + S3 ...; 相同. 将字符串相加. 函数原型 function Copy(S: string; Index, Count: Integer): string;说明 S : 字符串. Indexd :

TMemoryStream、String与OleVariant互转 //////////////////////////////////////////////////////////////////////////////// //功能: STRING 的内容流化到 OLEVARIANT 中 //参数： //////////////////////////////////////////////

有一个synedit包与firemonkey(或工作的人)一起工作吗？ 从我可以收集有更早的VGScene端口(见：this site)，但它似乎已被删除。 另见this site： 最有可能不是(目前)： 从homepage： 它是一个纯VCL / CLX控件，这意味着它不是Microsoft Windows的包装器     控件等，因此不需要运行时库。 用于Cross Platform的CLX

我想自动检出一个文件，当我开始编辑它在Delphi 7 IDE。 ClearCase是我的版本控制系统，我真的讨厌需要检出一个文件，然后开始编辑。它总是打破我的思想流程：我试图解决一个问题，找到我需要改变，尝试编辑它，失败，因为文件是只读，打开清除，搜索文件，最后签出，尝试编辑文件，失败，因为IDE仍然认为它是readonly，告诉IDE不是readonly。当我终于回到代码，我忘了我在做什么。

假设我在Firemonkey有一个小的位图(例如32×24像素)。所以我把一个TImage到一个窗体，在构造函数中有这样的代码： Image1.Bitmap.Create(32, 24); if Image1.Bitmap.Canvas.BeginScene then try Image1.Bitmap.Canvas.Fill.Color := claBlack; Imag

[Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (生成新的GUID，点击 工具|在IDE中生成GUID。) AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675} ;程序名 AppName=ISsample ;版本号 AppVerName=ISsample 1.0.0.0 ;发布者名 AppPu

有些程序需要随系统启动，或者需要建立某些文件关联等问题，这些都是通过在安装程序中对注册表进行操作的结果。Inno Setup中通过[registry]段实现对注册表的操作。 本段说明： 参数列表： 参数 说明 Root 根键。必须是下列中的一个: HKCR (HKEY_CLASSES_ROOT) HKCU (HKEY_CURRENT_USER) HKLM (HKEY_LOCAL_MACHINE)

先把logo文件加载进来； 然后按以下设置： [Icons] Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Name: "{group}\卸载{#MyAppName}"; Filename: "{uninstallexe}" Name: "{commondesktop}\{#MyAppName}"; Filenam

我有几个大(〜600k行代码)Delphi项目。它们包括我们团队开发的一些定制组件。 通常，当我使用ctrl空间调用代码完成，或者只是按“。”，IDE锁定并认真考虑很长时间。有时延迟可能是一分钟或更多。其他时候，它立即弹出建议。 什么因素影响德尔福智能感知的表现？有什么办法可以提高这种表现吗？ 到目前为止，我最好的解决方案是关闭自动完成，并使用ctrl空间，当我需要静静静思一分钟左右。 我不禁要提

首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( ′Excel.Application′ ); 注意程序结束时释放变量 ExcelApp:=unassigned; 1 显示当前窗口： ExcelApp.Visible := True; 2 更改 Excel标题栏： ExcelApp.Caption