原创 在cxgrid中根據第一列的ID值，對第二列進行下拉過濾
procedure TForm1.cxGrid1TableView1Column3GetPropertiesForEdit( Sender: TcxCustomGridTableItem; AReco
2018-08-29 19:03:07
3
原创 查看端口是否被佔用
查看該端口情況如下： netstat -aon|findstr "5037" TCP 127.0.0.1:5037 0.0.0.0:0 LISTENING
2018-08-29 19:03:07
原创 下載指定網絡驗證碼圖片，並保存
var stream:TMemoryStream; begin IdHTTP1.Get('http://www.jljj.cn/'); Stream := TMemoryStream.Create ; i
2018-08-29 19:03:07
1
原创 delphi獲取電腦內存使用情況
var status : TMemoryStatus; rate : single; begin GlobalMemoryStatus(status); // showmessage(fl
2018-08-29 19:03:06
1
原创 在JPG圖片上直接寫字，不用轉成BMP
jpg := tjpegimage.create; jpg.loadfromfile('D:\Photo\2014-12-26\20141223150119855駛近_60_90_無車牌.jpg'); /
2018-08-29 19:03:06
5
原创 使cxgrid中某列下拉列表自動下拉
Grid_infoDBTableView1.DataController.FocusedRowIndex:= self.Grid_infoDBTableView1.DataController.Ro
2018-08-29 19:03:06
原创 在fastreport中打印空白表格及小寫金額轉大寫金額
在fastreport中的code腳本中寫如下代碼： var PageLine: integer; //在現在頁列印到第幾行 PageMaxRow: integer=15; //設定每頁列數 C_To
2018-08-29 19:03:05
原创 在combox中加入多列。。
type pFields=^TFields;//定義一個記錄集 TFields=Record ID,CName,EName:String; end;var Form1: TForm1; impl
2018-08-29 19:03:05
原创 常用函數
格式化整型字串0000形式： format('%.5d',[134]); 取char數組到string類型變量; struPlateResult.byAbsTime:array[0..20] of char; VarCarDateTi
2018-08-29 19:03:05
3
原创 cxgrid根據圖片路徑載入圖片
while not ADOQuery1.eof do begin if not ADOQuery1.Fieldbyname('PrintFileName').IsNull then begin
2018-08-29 19:03:04
原创 無法訪問。您可能沒有權限使用網絡資源。……拒絕訪問
那是因爲那臺電腦沒有給你權限，如果你能去設置 的話。 在他的電腦上： 1.“我的電腦”右鍵－管理－本地用戶和組－用戶－啓用來賓（注意：在這裏啓用來賓的效果和在控制面板－用戶賬戶裏面啓用來賓是一樣的。區別就
2018-08-29 19:03:04
原创 “計算機無法訪問,您可能沒有權限使用網絡資源”解決方法
今天實驗室裝網絡打印機，嘗試連接作爲打印服務器的電腦時，收到是類似於以下錯誤信息： XXXXXXX 是不可訪問。 您可能沒有權限用於此網絡資源。 訪問被拒絕。 XXXXX 是基於 WindowsXP 的計算機 IP 地
2018-08-29 19:03:04
原创 CXGrid用法1
CXGRID用法 （取行、列值；定位選中某行等等） Delphi Cxgrid獲取選中行列，排序規則， 當前正在編輯的單元格內的值 cxGrid1DBTableView1.Controller.
2018-08-29 19:03:04
9
原创 獲取網絡文件及目錄
var NetSource : TNetResource; dwResult:DWORD;begin g_bFlag:=True; with NetSource do
2018-08-29 19:03:04
原创 cxTreeList和cxListView使用
在cxTreeList中添加結點。 var aa,bb: TcxTreeListNode; begin if cxTreeList1.Count >0 then begin bb:=cxTreeList1.Items[0];
2018-08-29 19:03:03
5