摘要：关键：Find要事先Sort排序，Indexof不用排序。 TStringList内部查找相关的数据。待调试代码时才知道痛苦，浪费无数时间后，只得一步步跟踪，才发 现Find方法返回的Index总是错误的，当时一阵郁闷，随手按下F1键，Find的Help文档展现眼前，对于该 函数是这样描述的：Loc 阅读全文

摘要：DWORD GetTickCount(void); 1) 定义 For Release configurations, this function returns the number of milliseconds since the device booted, excluding any ti 阅读全文

摘要：procedure Hex2Png(str: string; out png: TPngObject); var stream: TMemoryStream; begin if not Assigned(png) then png := TPngObject.Create; stream := TMemoryStream.Create; stream.SetSize(Length(str) div 阅读全文

摘要：TPanel位于Standard组件面板上，也是常用的一种容器控件。面板的一个优点就是放在面板上的组件称为面板的一部分，因此它们与面板一起移动。这在设计阶段很有用。 Panel组件的大部分功能在于其Align属性。例如，想显示标题在窗体上端，更进一步假设想让它在中央，不管用户怎样设置窗口尺寸，只需设 阅读全文

摘要：TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。 一、TClientDataSet的基本属性和 阅读全文

摘要：上传客户端的CLIENTDATASET.delta到服务器的clientdataset.data，服务端解析clientdataset的数据生成相应的SQL语句。 相对于直接调用datasetprovider.applyupdates()方法提交数据而言，前者的可控性更强，对于某些要求灵活性很强的场 阅读全文

摘要：Delphi做三层开发时,很多人都会在客户端放一个TClientDataSet,中间层远程数据模块就对应放一个TDataSetProvider,然后再连起来.其实这种方法很烦琐,而且程序痈肿不甘,不好维护.我们都知道TClientDataSet的Delta属性记录了数据的所有修改,应用它我们就可以方 阅读全文

摘要：今天终于把纠缠了几天的问题改完了，说到底只是一个很小的问题，就是ADOQuery的一个小属性。 今天终于把纠缠了几天的问题改完了，说到底只是一个很小的问题，就是ADOQuery的一个小属性。 把控件DBGridEh的一列的checkbox设为true，将其绑定DataSource和ADOQuery。 阅读全文

摘要：使用delphi中的ADOQuery控件中自带的,insert ,edit,delete此操作时,有时会出现下面的错误提示,提示错误信息："无法为更新定位行。一些值可能已在最后一次读取后已更改。" 此解决方案: 出现的原因: 1.可能是修改的时候在其它地方已经重新修改过此数据集中的某些字段信息,例如 阅读全文

摘要：ClientDataSet中使用Post提交变更的数据时，实际上并没有更新到后端数据库中，而是提交到了由DataSnap管理的数据缓冲区中。当使用了ClientDataSet.ApplyUpDates(MaxErrors:integer)方法才更新到数据库中。ApplyUpDates方法也只更新修改 阅读全文

摘要：//只要前五条记录 procedure TForm1.Button1Click(Sender: TObject); begin with ADODataSet1 do begin Close; CommandText := 'SELECT TOP 5 * FROM country'; Open; e 阅读全文

摘要：(*//标题:处理数据网格的编辑框说明:示例添加焦点颜色;获取还没有提交到数据集的字段文本设计:Zswang日期:2002-03-31支持:wjhu111@21cn.com//*)///////Begin Sourcefunction GetDBGridEdit(mDBGrid: TDBGrid): 阅读全文

摘要：鼠标忙这段代码大概是用来演示鼠标的用法的。具体解释如下： 使鼠标指针为沙漏状。（以表示程序正忙）screen.Cursor:=crhourglass; 把（打开的）数据库关闭。adoQuery.close;（个人以为改成这样更好：if adoQuery.Active then adoAuery.cl 阅读全文

摘要：在编程时候，尤其是在一个大的团队里面，遵守统一的编程规范是极其重要的。为所有的开发人员制定一个源代码书写标准，以及程序和文件的命名标准，使他们在编程时有一致的格式，这样，每个编程人员编写的代码能够被其他人理解，减少程序维护和移交的成本。 这里先只介绍关于Delphi语言的编程规范，暂时跳过文件、项目 阅读全文

摘要：一般来说，用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示： with Table Do begin DisableControls;{在修改记录的过程中，使其它部件无效} First; {将记录指针指向第一条记录} while not EOF do begin <读取记录的一个字段值到 阅读全文

摘要：这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下 本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下： 该实例可实现根据字符串Separato 阅读全文

摘要：function GetBefore(substr, str:string):string; {©Drkb v.3(2007): www.drkb.ru, ®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com} begin if pos(substr,str)>0 then result:=copy(str,1,pos(substr,str)-1) els... 阅读全文

摘要：PPersion=^TPersion; TPersion=packed record Name:string; Sex:string; Clasee:string; end; var persion:TPersion; PP:PPersion; begin FillChar(persion,SizeOf(TPersion... 阅读全文

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB; type PNodeInfoEx = ^TNodeInfoEx; TNodeInfoEx = Pa... 阅读全文

摘要：unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, ADODB, StdCtrls; type PNodeInfo=^TNodeInfo; TNodeInfo=record ID:string; Ful 阅读全文