原创 將memo轉化爲JPG輸出
unit s1;interfaceuses Windows, Messages, SysUtils, Graphics, Controls, Forms, StdCtrls, Classes;type TForm1 = class(
2020-06-15 12:50:55
原创 編譯變量$REGION用法
今天新學習了一個 編譯變量$REGION，用於在delphi2006以後版本的摺疊代碼顯示，非常方便。 procedure TForm2.Button1Click(Sender: TObject);var uStr: Unicode
2020-06-15 12:50:55
原创 關於Record類型RTTI反射的用途和方法
問題的引入： 準備做一個多國語言軟件，發現信息變量（都是字符串）數量龐大，如果簡單的通過 “變量=readstring”從ini文件中獲取的話，幾百個變量就是幾百行，這個工作量非常大，而且也不易維護。如果使用RTTI反射機制，未來
2020-06-15 12:50:55
1
原创 讓delphi2010操作界面回到delphi7模式
在使用delphi2010的過程中，很不習慣它的窗口在一個框框內，感覺很不方便，可能是因爲使用delphi7很多年了，已經習慣了delphi7的版面。 如何讓delphi2010能有delphi7的版面佈局呢？答案是肯定的，方法如下：
2020-06-15 12:50:55
原创 delphi 2010 fastMM 內存泄露使用方法
Delphi2010集成了fastMM，這回大家調試程序是的時候可以方便地檢查內存泄露了。 使用方法如下： 在project中，添加一行 ReportMemoryLeaksOnShutdown := DebugHook<>0; Debug
2020-06-15 12:50:55
原创 合併動態數組
procedure TForm2.btn1Click(Sender: TObject);var arr1, arr2: TBytes; len: Integer;begin SetLength(arr1, 3); SetLengt
2020-06-15 12:50:45
原创 Firebird數據庫版本差別
http://www.firebirdsql.org/index.php?op=guide&id=techspec Firebird Technical Specifications Updated 2007-07-16 and s
2020-06-15 12:50:45
3
原创 delphi2010打開後顯示＂displayNotification: 內存不夠＂解決辦法
今天打開delphi 2010，提示＂displayNotification: 內存不夠＂，以前從來沒碰到，經過研究發現時welcome page 產生的問題，正好對這個 welcome page頁很反感，每次啓動都出現。這次就乾脆幹掉它
2020-02-21 04:53:19
1
原创 使用TWebBrowser組件保存網頁爲html和mht文件
一、保存爲HTML文件 uses ActiveX;...procedure WB_SaveAs_HTML(WB : TWebBrowser; const FileName : string) ;var PersistStream:
2020-02-21 04:53:18
原创 delphi執行一個外部程序，當外部程序結束後，delphi程序立即響應（續）
今天發現前一篇文章的例程多少有些毛病，在主程序中使用repeat循環來等待外部程序的關閉，這樣這個程序佔用cpu會是100%，所以加上一句sleep語句來釋放cpu。但是這樣做我也不太滿意，畢竟用了repeat循環，顯得程序很不專業。今天
2020-02-21 04:53:18
原创 statusbar學習(2)—在statusbar上顯示圖標和自動以顏色
procedure TForm2.FormCreate(Sender: TObject);begin StatusBar1.Panels[0].Style := psOwnerDraw; StatusBar1.Panels[1].St
2020-02-21 04:53:18
1
原创 delphi2010中DElphi class explorer妙用
delphi2010中view -> Delphi class explorer ，將顯示所有類，包括全局變量，而且右鍵菜單還可以在已有類中新增 字段、屬性、方法。但是沒找到如何新建類，不行的話，就手工吧！ 點贊 收
2020-02-21 04:53:18
原创 如何讓BitBtn按鈕顯示icon圖標
BitBtn按鈕的Glyph屬性只能使用bmp圖片，如果想用icon做圖片可以使用下面語句。 在窗體上添加imagelist，然後在form的create函數中添加 ImageList1.GetBitmap(0, BitBtn1.G
2020-02-21 04:53:18