原创 Delphi 2010 新增功能之: TWICImage 類[4] - 圖像的修剪
雖然不用 TWICImage 也可以方便實現圖像的修剪, 但這是 TWICImage 的方式. 測試代碼: unit Unit1; interface uses Windows, Messages, SysUtils, Var
2018-08-27 15:25:25
5
原创 產生了範圍隨機數 條件可以自己改
procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin //產生了100-999的數 條件可以自己改 Randomize; i := random(99
2018-08-27 15:25:25
1
原创 如何使用 SendMessage 選擇 ListBox、ComboBox 中的項
const i = 1; //初始測試數據 procedure TForm1.FormCreate(Sender: TObject); begin ListBox1.Items.CommaText := 'aaa,bbb,ccc';
2018-08-27 15:25:25
10
原创 System.Copy - 從字符串或數組中複製
function Copy( S: String; {字符串或動態數組} Index: Integer; {起始位置} Count: Integer {Copy 個數} ): String; {如果參
2018-08-27 15:25:24
4
原创 System 單元下的公用函數目錄
有簡單提示的鏈接有效. 過程或函數名 分類 簡單提示 Abs 絕對值 AcquireExceptionObject AddModuleUnloadProc Addr Al
2018-08-27 15:25:24
原创 在一個範圍內獲取隨機時間
uses math;...procedure TForm1.Button2Click(Sender: TObject);var d1,d2,r1,r2:double;a:tdatetime;d:tdatetime;begin d1:=e
2018-08-27 15:25:24
2
原创 獲取指定地址的 JPG 圖片，驗證碼
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Id
2018-08-27 15:25:24
1
原创 System.Delete - 從字符串中刪除
procedure Delete( var S: String; {源字符串; 因爲是 var 參數, 不可能是個常量} Index: Integer; {起始位置; 第一個字符的位置是 1, 起始位置不能小於 1 } Co
2018-08-27 15:25:24
1
原创 Delphi直接修改文件十六進制的文法
var MS : TMemoryStream; P0 : PByte; P1 : PByte;begin MS := TMemoryStream.Create; try MS.LoadFromFile( 'a.exe' )
2018-08-27 15:25:24
原创 System.Odd - 判斷一個整數是不是奇數
var i: Integer; b: Boolean; begin i := 11; b := Odd(i); {是奇數返回真} ShowMessage(BoolToStr(b)); {Tr
2018-08-27 15:25:23
原创 SysUtils 單元下的公用函數目錄
有簡單提示的鏈接有效. 過程或函數名 分類 簡單提示 Abort AddExitProc AddTerminateProc AdjustL
2018-08-27 15:25:23
原创 Delphi 往IC卡中寫入漢字
往CPU卡中寫入漢字或特殊字符，需要先建一個透明文件，然後用APDU命令去修改這個文件，但APDU命令的數據域是不接受漢字或特殊字符的，所以需要把要寫入的漢字轉成16進制的字節碼。讀出的時候同樣需要把16進制的數據轉化成漢字，在此可提供三
2018-08-27 15:25:23
2
原创 Graphics 單元下的公用函數目錄
有簡單提示的鏈接有效. 過程或函數名 分類 簡單提示 AllocPatternBitmap BytesPerScanline CharsetToIdent ColorToIdent
2018-08-27 15:25:23
1
原创 SysUtils.Trim、SysUtils.TrimLeft、SysUtils.TrimRight - 刪除空格
var ss,s: string; begin ss := ' Delphi '; s := Trim(ss); {刪除兩邊空格} ShowMessage('^' + s + '$'); {^
2018-08-27 15:25:23
3
原创 Delphi用timer運動文字不閃爍問題
正常timer做動畫效果會出現閃爍問題以下代碼可以解決此問題procedure TForm1.FormCreate(Sender: TObject);beginform1.DoubleBuffered := True; //開啓雙
2018-08-27 15:25:23
1