Description Often when manipulating datasets with similar structures, you need to copy the records from one dataset to another.  E.g. you may have fetched some records in a query or clientdaset and have located the matching records in another dataset…

最近遇到了很多问题,现在做一下总结. 字符串处理: 字符串相加 var S1, S2: String; begin S1 := Concat('A', 'B'); // 连接两个字符串,S1变量等于AB. S2 := Concat('Borland', ' Delphi', ' 7.0'); // 连接三个字符,S2变量等于Borland Delphi 7.0. end; 去掉最后一个字符: var s : string; begin s := '; caption := copy(s, , L…

TDataSet类由TBDEDataSet(BDE组件).TCustomADODataSet(ADO组件).TIBCustomDataSet(InterBase组件).TCustomSQLDataSet(dbExpress组件)和TCustomClientDataSet子类组成. 下面介绍DataSet类中比较重要的属性(可能会有取舍,等到真正做项目用到的时候在进行补充) 1.Active:判断数据库是否已打开: 2. Bof:判断数据集的第一条记录是否激活(且在以下状态下为true:1.打开一…

dst_temp.last ;//最后一条dst_temp.first ;//第一条dst_temp.next ;//下一条dst_temp.prior;//上一条…

procedure SendStream(const AStream: TStream);var Buffer: array[0..4095] of Byte; // 每包最大4K StartPos, AmountInBuf, AmountSent: Integer;begin if AStream = nil then Exit; AStream.position := 0; while True do begin StartPos := AStream.Position; AmountInB…

FDQuery FDQuery1->ChangeCount;也有UpdatesPending属性 FDQuery1->ApplyUpdates() ExecSQL('select * from t where id=:?',[100]); FDQuery1->Table->Rows[2].Free(); FDQuery1->UpdateCursorPos(); FDQuery1->Resync(TResyncMode()); FDQuery1->FetchAll(…

如题......只是一个单元, 为了测试JSON单元性能的... 具体测试结果参考: http://www.cnblogs.com/hs-kill/p/3668052.html 代码中用到的SevenZIP单元在这里: http://www.cnblogs.com/hs-kill/p/3876160.html unit DSCJSON; // *************************************************************************** /…

最近一次使用DELPHI做项目是使用DELPHI2009,为了访问本地数据库方便,使用ACCESS数据库,不需要安装驱动,(WINDOWS自带),但是ACCESS数据库的性能确实很糟糕,通过ADO连接,INSERT 1000条数据平均在1.5秒以上. 面前面临一个新的项目,本地数据库是继续用ADO,还是其他,成了一个问题. 近期比较流行的本地数据库是SQLite,想测试下SQLite的性能,和方便程度. 1. DELPHI 和 SQLITE在度娘上提的最多的是通过ASQLite3DB组件进行连接…

delphi用,不能与java.c#互相识别. procedure TServerMethods.UpdateDoc(ItemID : integer; doc : TStream); delphi用,不能与java.c#互相识别. procedure TServerMethods.UpLoadFile(ADoc: TJSONArray); jsonArray := TDBXJSONTools.StreamToJSON(aStream, 0, aStream.Size); bstream :=…

从Delphi 2009开始,DataSnap技术发生了很大的变化,并在Delphi 2010和Delphi XE的后续版本中得到了持续的改进.Delphi 2009之前的DataSnap,虽然也实现了对中间层的方法调用,但那是基于COM技术的,实现起来比较麻烦,而且最关键的,是不能直接返回数据集(TDataSet).如今,基于JSON的DataSnap,已经脱离了COM的束缚,可以很方便地直接返回数据集.我们在开发多层的数据库应用时,就可以采用全新的方式来进行,即客户端的所有数据查询和更新,可…