原创 清空panel的edit控件文字
unit Unit2;interfaceuses SysUtils,Forms,ExtCtrls,StdCtrls;procedure ClearEdit(pl:TPanel);implementationprocedure Clear
2020-06-30 05:18:13
1
原创 自定義函數//獲取登錄計算機用戶的名稱，獲取計算機名稱
function GetlocalcomputerName:string;/**/////獲取計算機名稱 var lpName:pchar; lpSize:DWord; begin
2020-06-30 05:18:13
原创 '顯示桌面'的內容
[Shell]Command=2IconFile=explorer.exe,3[Taskbar]Command=ToggleDesktop
2020-06-30 05:18:12
1
原创 dbgrideh點擊標頭排序函數
procedure SortDBGridEh(Sender: TObject; ACol: Integer; Column: TColumnEh);var FieldName : string; SortStr : string
2020-06-30 05:18:12
1
原创 autojs微信運動自動點贊
進入微信運動--步數排行榜再運行 第一行的nameList填入你的微信暱稱，防止點擊進入“讚我的朋友”頁面 由於沒有判斷心形的位置，可能會有點擊到虛擬按鍵的情況 貌似有漏點的情況，調試太耗時，就這樣吧 var nameList = [
2020-06-30 05:18:12
9
原创 Delphi ListView的用法(常用技巧)[轉載]
Delphi ListView的用法(常用技巧)[轉載] 2006-12-17 12:29 //增加 i := ListView1.Items.Count; with ListView1 do begin ListI
2020-06-30 05:18:12
原创 給 StringGrid 的 ACol 列快速法排序
procedure TFrmDBDL.GridQuickSort(Grid: TStringGrid; ACol: Integer; Order, NumOrStr: Boolean);(* 函數功能：給 StringGrid 的
2020-06-30 05:18:12
原创 python 出現socket.gaierror: [Errno 11004] getaddrinfo failed錯誤
python程序之前一直沒有問題，有半個多月沒有運行，就出現了這個問題： socket.gaierror: [Errno 11004] getaddrinfo failed 嘗試重新安裝python和依賴庫，還是不行，查資料說
2019-06-11 01:53:55
14
原创 “數據提供程序或其他服務返回 E_FAIL 狀態” 的問題
dlephi通過ado連接dbf數據庫strsql := 'Provider=MSDASQL.1;User ID="";Extended Properties="Driver={Microsoft Visu
2018-08-30 15:02:34
原创 delphi編寫函數，出現over flow
//對大字符操作，每個字符串大概3000-5000字節procedure Texchanger.AnalysisDepthData(value,asks,bids,splitstr,ADelim: string); var apos,
2018-08-30 15:02:33
2
原创 delphi 菜單授權
初學delphi時做的，模仿白貂的用pb開發的那個框架，代碼很垃圾，有時間在重新整理吧treeview用3個圖片，模仿checkbox的三態授權窗口 unit YHGL;interfaceuses Win
2018-08-30 15:02:33
原创 電阻電容的標註
電阻電容的標註一、電阻1、參數識別：電阻的單位爲歐姆（Ω），倍率單位有：千歐（KΩ），兆歐（MΩ）等。換算方法是：1兆歐=1,000千歐=1,000,000歐。電阻的參數標註方法有3種，即直標法、色標法和數標法。a、數標法主要用於貼片等小
2018-08-30 15:02:33
原创 dbgrideh排序的奇怪問題
做的一個項目中，dbgrideh某一列點擊標題排序，出現莫名其妙的問題，排出順序根本不對，亂七八糟。最後發現是 adoquery的sql語句問題：select a.*,b.*,c.* from a left
2018-08-30 15:02:33
原创 delphi獲取硬盤序列號的dll代碼，支持win7
library GetDiskSN; { Important note about DLL memory management: ShareMem must be the first unit in your library's
2018-08-30 15:02:33
1