原创 Delphi 捕捉全屏幕圖像
procedure SaveScreenToBmp(AFileName :TFileName); var bit: TBitmap; cvs: TCanvas; begin bit := TBitmap.Create;
2020-06-16 07:55:57
原创 Delphi2009輸入"."後不出現助記輸入選擇框的問題!
問題出現在D2009打開以前工程項目時,輸入"."後,系統無反應! 解決方法: 設置Project-->Options Delphi Compiler結點--->Unit aliases 字符串加入 WinTypes=Window
2020-06-16 07:55:57
原创 Devexpress V40 在Delphi2009中 DBGrid 使用Search功能時文本選擇從右至左問題解決
問題描述的不是很清楚,使用圖片說明! 圖中輸入AT時,系統選擇的是後兩位! 解決方法: 修改文件: cxDrawTextUtils ProcedureName: cxTextRowsOut
2020-02-21 02:41:16
原创 終於將我的軟件全部升級到D2009了
花了一個多星期的時間研究D2009,看了網上N多人的文章!終於將軟件全部升級了! 我覺得D2009的Object生命週期好像與D2007不同,以前我書寫的在finalization部分Free的對象或使用DbExpress寫數據庫操作
2020-02-21 02:41:16
原创 Fast Report 4.X——Delphi 2009的中文解決方法
1.更換FastReport/Source文件夾的文件（frxrcClass.pas,frxrcDesgn.pas,frxrcExports.pas,frxrcInsp.pas） （ 文件不會上傳，可以在Delphi中打開以上文件，將
2020-02-21 02:41:16
8
原创 if then else 的特殊簡寫方法
我們經常遇到類似: var a,b:Integer begin if (條件) then Result := a else Result := b; nd; 可以簡寫爲 Result :
2020-02-21 02:41:16
原创 取Canvas指定座標的顏色
GetPixel( DC: HDC; {設備環境句柄} X, Y: Integer {座標}): COLORREF; {返回顏色值} 例如: var c :TColor; begin c := Get
2018-08-31 09:43:13
原创 Java jar打包詳解
爲什麼會有這個玩意呢，首先，這是jar的全稱：JavaTM Archive (JAR) file，是的，就是java存檔文件。這有點類似zip文件，想一想它是幹什麼的用的呢，壓縮！？沒錯就是要壓縮，將我們原先零散的東西放到一下，重新組織，
2018-08-31 09:43:10
原创 基本算法（用 PASCAL 描述）
1.數論算法求兩數的最大公約數function gcd(a,b:integer):integer;beginif b=0 then gcd:=aelse gcd:=gcd (b,a mod B);end; 求兩數的最小公倍數functio
2018-08-31 09:43:09
原创 Delphi與消息1：TObject中的Dispatch和DefaultHandler
TObject是Delphi中的基類，它提供了消息的基本分裝 TObject = class ....... procedure Dispatch(var Message); virtual; procedure Def
2018-08-31 09:43:09
原创 Delphi 基礎回顧
有很多東西，不經常使用，都忘記了，哈哈！做個記錄！ 1.packed record 中 packed 的作用 packed 表示 record 中數據的對齊方式，默認情況下，Delphi每次分配4字節的內存，及時聲明的類型，
2018-08-31 09:43:09
原创 Delphi 基礎回顧2
pcahr 和string 之不同string 記錄了長度 例如var s:string; p:pchar;begin s:='123'; //p:=@s; 亂碼的原因是應爲s[0]是用來記錄長度的 p:=@s[1];//正確
2018-08-31 09:43:07
原创 FastReport 使用技巧——如何打印數據表數據
利用TfrxCrossView var Cross: TfrxCrossView; i, j: Integer; begin if c is TfrxCrossView then begin Cross :=
2018-08-31 09:43:07
1
原创 Delphi Imm單元函數詳解（二）
函數：ImmGetDefaultIMEWnd功能：獲取缺省IME窗口句柄函數原型：function ImmGetDefaultIMEWnd(hWnd: HWND): HWND; stdcall;參數解釋：
2018-08-31 09:40:34
3
原创 FastReport 4.7X 設計報表 複製粘貼 中文亂碼問題
修改:frxDesgnCtrls單元 procedure TfrxClipboard.Paste方法中 sl.SaveToStream(s); 爲 sl.SaveToStream(s,TEncoding.UTF8);即可
2018-08-31 09:40:32
1