随笔- 267
文章- 27
评论- 28
阅读-
10万
03 2016 档案
可以用WMI来获取磁盘及分区编号
摘要:{$APPTYPE CONSOLE} uses SysUtils, ActiveX, ComObj, Variants; function ListDrives : string; var FSWbemLocator : OLEVariant; objWMIService : OLEVariant; colDiskDrives : OLEVariant; ...
阅读全文
TDBGridEh的 搜索面板 TDBGridSearchPanel
摘要:TCustomDBGridEh.Create FSearchPanelControl := TDBGridSearchPanelControlEh.Create(Self); //这里,创建的构造函数是 另外一个类 with FSearchPanelControl do begin Parent := Self; Name := 'FSearchPanelCont...
阅读全文
TADOTable 用过滤事件 后 记录数据和 记录的内容
摘要:用 过滤事件,过滤后 ADOTbTrade.RecordCount 是总数, 但是,记录内容是 过滤后的 ADOTbTrade.First; while not ADOTbTrade.Eof do begin Log( ADOTbTradeid.AsString ); ADOTbTrade.Next
阅读全文
SelectedRows.CurrentRowSelected 和 DeleteItem
摘要:procedure TBMListEh.SetCurrentRowSelected(Value: Boolean); var Index: Integer; Current: TUniBookmarkEh; begin Current := CurrentRow; if Find(Current,
阅读全文