- 博客(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
1172
转载 数组排序函数
//数组排序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
611
转载 页次(PageControl)标签颜色及字体颜色
1.先把 PageControl1 的 OwnerDraw 属性设为 trueprocedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean);begin if Active then
2013-11-07 09:58:00
1864
转载 取得cxGrid 合计数
SumQty:= cxGrid1DBTableView1.DataController.Summary.FooterSummaryValues[0];
2013-10-21 17:40:04
617
原创 取得鼠标选取的单元格值
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
656
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人