其他

之前應該參考一下: 關於開放數組參數//這是在 System 單元定義的一組標識資料類型的常量:vtInteger = 0;vtBoolean = 1;vtChar = 2;vtExtended = 3;vtString = 4;vtPointer = 5;vtPChar = 6;vtObject = 7;vtClass = 8;vtWideChar = 9;vtPWideChar = 10;vtAnsiString =

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; procedure FormCreate(Sender: TObject); procedure Panel1Click(Sender:

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; RadioGroup1: TRadioGroup; procedure RadioGroup1Click(Sender:

方法一(通過 Width、ClientWidth 推算):var frame,caption: Integer;begin frame := (Width - ClientWidth) div 2; caption := Height - ClientHeight - frame * 2; ShowMessageFmt('邊框寬: %d; 標題高: %d', [frame,caption]); {邊框寬: 4; 標題高: 26}end;方法二(用 GetSystemMetrics

譬如讓 Edit1 文本靠右對齊:SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender:

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; RadioGroup1: TRadioGroup; procedure FormCreate(Sender:

本例:準備工作: 建立工程後, 在表單上添加一個 Panel 和四個 CheckBox; 雙擊它們產生預設事件, 然後全選代碼, 用下面代碼覆蓋.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel;

FmtStr 是個過程, 它是用第一個參數來返回結果的; Format 是個函數, 傳回值就是格式後的結果. 舉例:var str: string;begin FmtStr(str, '最大整數是: %d', [MaxInt]); ShowMessage(str); {最大整數是: 2147483647} str := Format('最大整數是: %d', [MaxInt]); ShowMessage(str);

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender:

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure MyMsg(var msg: TWMKeyDown); message WM_KEYDOWN;

CompareStr 區分大小寫; CompareText 不區分大小寫. 舉例:var s1,s2: string; i: Integer;begin s1 := 'abc'; s2 := 'adc'; i := CompareStr(s1,s2); ShowMessage(IntToStr(i)); {-2} i := CompareText(s1,s2); ShowMessage(IntToStr(i)); {-2} s1 := 'abc'; s2 := 'ABC'

方法一、二、三:方法四:方法一:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:

問題來源: http://www.cnblogs.com/del/archive/2008/05/02/1179416.html#1179645一個全域變數可以初始化, 如果你不主動初始化, 也會被自動初始化;一個局部變數不能被初始化, 雖然你不能主動初始化, 但它會被賦予一個隨機值.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

一個使用私人堆的例子:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1:

本例在建立一個新的堆前後分別通過 GetProcessHeaps 函數擷取了當前進程的堆控制代碼列表, 沒想到一個最簡單的程式也有 5 個堆.:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Memo2:

問題來源: http://www.cnblogs.com/del/archive/2008/05/02/1179416.html#1179645我覺得 GetMem 和 GetMemory 的功能是一樣的, 有點類似與 Format 和 FmtStr 的關係;它們的區別只在於參數位置和傳回值的區別, 看看 GetMemory 函數的源碼就知道, 它其實就是調用的 GetMem.unit Unit1;interfaceuses Windows, Messages, SysUtils,

這是可能需要的函數:System.AllocMem;System.AllocMemCount;System.AllocMemSize;System.Dispose;System.Finalize;System.FreeMem;System.FreeMemory;System.GetHeapStatus;System.GetMem;System.GetMemory;System.GetMemoryManager;System.GetMemoryManagerState;System.GetMemo

Windows 是多任務的作業系統, 一個任務就是一個應用(應用程式)、一個應用佔一個進程; 在一個進程裡面, 又可以運行多個線程(所以就有了很多"多線程編程"的話題).對 Win32 來講, 系統給每個進程 4GB 的地址空間:低端 2GB($00000000 - $7FFFFFFF) 給使用者支配;高端 2GB($80000000 - $FFFFFFFF) 留給系統使用.檔案或程式要調入記憶體才能工作, 先看看我們的記憶體到底有多大吧.在系統硬碟根目錄下有個 pagefile.sys 檔案,