- 博客(5)
- 资源 (10)
- 收藏
- 关注
RSS订阅原创 数据集生成Xml 格式文件
//数据集生成Xml 格式文件 function makeXml(Dataset:TADODataSet;XMLRootName:string):Integer; var i : Integer; xml : String; temp:Variant; doc : IXMLDOMDocument; root,child,child1 : I
2013-11-07 10:12:14
1256
转载 数组排序函数
//数组排序 procedure TForm1.ArraySort(var A: array of integer); var I, J, T: Integer; begin for I := High(A) downto Low(A) do for J := Low(A) to High(A) - 1 do if A[J] begin
2013-11-07 10:00:38
685
转载 页次(PageControl)标签颜色及字体颜色
1.先把 PageControl1 的 OwnerDraw 属性设为 true procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); begin if Active then
2013-11-07 09:58:00
2072
转载 取得cxGrid 合计数
SumQty:= cxGrid1DBTableView1.DataController.Summary.FooterSummaryValues[0];
2013-10-21 17:40:04
686
原创 取得鼠标选取的单元格值
For cxGrid: barPart2:=grdBarTV.DataController.GetValue(grdBarTV.DataController.FocusedRecordIndex, grdBarTV.Controller.FocusedItemIndex); For dbgridEH: barPart2:=grdBar2.Fields[grdBar2.SelectedIn
2013-09-04 14:01:57
741
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人