其他

非常遺憾 Delphi 的 case 語句不支援字串, 但我覺得這也可能是基於效率的考量;如果非要在 case 中使用字串, 也不是不可以變通, 這裡提供了五種方法.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm)

unit Unit1;interfaceuses Classes, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; TBase = class procedure proc1; virtual; procedure proc2; end; TChild =

問題來源: http://www.cnblogs.com/del/archive/2008/07/09/1073218.html#1249648代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Button1:

問題來源: http://www.cnblogs.com/del/archive/2008/07/09/1237697.html#1250073我曾經傻呵呵地這樣做過: http://www.cnblogs.com/del/archive/2008/07/08/1238238.html#1249117代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

問題來源: http://www.cnblogs.com/del/archive/2008/07/30/1255869.html#1272342本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;

問題來源: http://www.cnblogs.com/del/archive/2008/07/10/1239621.html#1250359代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit;

問題來源: http://www.cnblogs.com/del/archive/2008/07/30/1039045.html#1272783在編譯器看來, 重載函數根本就是完全不同的幾個函數, 當然就會有不同的函數地址; 我們用常規方法擷取的地址只是第一種重載的地址.代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

前言: 博友 "鵬" 來信探討關於鉤子的問題, 核心困難是: dll 中的資料如何傳遞出來. 在接下來的兩個例子中探討這個問題.本例建立一個全域的滑鼠鉤子, 然後把滑鼠的相關資訊通過一個自訂的 GetInfo 函數傳遞給調用鉤子的程式. 為了方便測試, 提供一個源碼下載吧: http://files.cnblogs.com/del/MouseHook_1.rar本例:DLL 檔案:library MyHook;uses SysUtils, Windows, Messages,

上一個例子是從 DLL 中接受資料, 那怎麼給 DLL 傳遞資料呢? 還有, 在接受資料時, 讓 Timer 一直在那掃描也不是個好辦法呀. 本例解決了這些問題(但不知解決了博友 "鵬" 的問題沒有?).為了方便測試, 提供一個源碼下載吧: http://files.cnblogs.com/del/MouseHook_2.rar本例(和上一例是一樣的):DLL 檔案:library MyHook;uses SysUtils, Windows, Messages, Classes;{$R

問題來源: http://www.cnblogs.com/del/archive/2008/08/10/1071357.html#1282779本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Memo1:

問題來源: http://www.cnblogs.com/del/archive/2008/08/22/1002959.html#1294593//關於父類與子類的類型轉換:procedure TForm1.FormCreate(Sender: TObject);var List1: TStrings; List2: TStringList; {TStringList 是 TStrings 的子類}begin List1 := TStringList.Create; {List1

這是以前的內容, 應該從 http://www.cnblogs.com/del/archive/2008/06/06/1215319.html 開始!unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender:

function CompFile(const f1,f2: string): Boolean;var ms1,ms2: TMemoryStream; i,p: Integer; b1,b2: Byte;begin Result := False; if not (FileExists(f1) and FileExists(f2)) then Exit; ms1 := TMemoryStream.Create; ms2 := TMemoryStream.Create;

//畫筆var g: TGPGraphics; p: TGPPen;begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(aclRed, 2); {參數1顏色; 參數2是筆寬, 筆寬是可選, 預設 1} g.DrawEllipse(p, 11, 11, 222, 111); p.Free; g.Free;end;//設定筆寬與顏色var g: TGPGraphics; p: TGPPen;begin

之所以說複雜, 就是區別與以前談到的 結構化檔案存取; 這種複雜的結構化檔案也有叫做"複合文檔".有些文檔不是結構化的, 譬如記事本檔案; 結構化的檔可以分為以下幾類:標準結構化文檔、自訂結構化文檔(譬如 bmp 檔案)和複合文檔.這裡要談到的結構化儲存(複合文檔)是由 Windows 系統通過 COM 提供的, 它能完成像 Windows 目錄結構一樣複雜的檔案結構的存取; 提示一下 Windows 的目錄結構: 一個目錄下可以包含子目錄和檔案,

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:

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

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, xmldom, XMLIntf, XMLBrokr, msxmldom, XMLDoc;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1:

問題來源: http://www.cnblogs.com/del/archive/2008/08/16/1268786.html#1289015本例在 Delphi 2007 和 Delphi 2009 中均調試通過, 運行:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1

代碼檔案: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: