非常著急的問題 1.ocx的用法----請舉例2.delphi中預編譯的關鍵字和方法 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1\component-install activeX 1选择“Component”菜单项下的“Import ActiveX Control”2此為轉貼資料關於Delphi中預編譯指令的使用方法 在Delphi中,也有與C相似的預編譯指令,雖然該類指令只在當前的單個文件有效(也有可能是筆者未全面瞭解該類指令的真正用法),但是這一類指令對於進行多版本的製作工作(如從標準版中出學習版),確實有著相當不錯的用途。一.指令介紹:1. DEFINE指令:格式:{$DEFINE 名稱}說明 :用於定義一個在當前單元有效的符號(Symbol)。定義了之後可以使用IF DEF和IFNDEF指令來判斷該符號是否存在。2. UNDEF指令:格式:{$UNDEF 名稱}說明:用於取消一個在當前單元已經定義的符號(Symbol)。該指令和DEFINE配合使用。3. IFDEF指令:格式:{$IFDEF 名稱}說明:如果該指令後的名稱已經定義,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的代碼段。4. IFNDEF指令:格式:{$IFNDEF 名稱}說明:如果該指令後的名稱沒有定義,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的代碼段。5. IFOPT指令:格式:{$IFOPT 開關}說明:如果該指令後的開關已經設立,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的代碼段。舉例:{$IFOPT R+}Writeln('編譯時打開範圍檢查開關');{$ENDIF}6. ELSE指令:格式:{$ELSE}說明:通過判斷字首Ifxxx的條件式來確定該指令到{$ENDIF}之間的代碼段是否應該被編譯或者忽略掉。7. ENDIF指令:格式:{$ENDIF}說明:和Ifxxx配合,指明條件預編譯段源代碼段的結束位置。二.範例:編寫例子,通過預先定義不同的編譯符號,進行不用代碼段的編譯工作。1. 新建一個Delphi專案,在Unit1單元的表單上添加一個Button按鈕。2. 編寫程式如下:unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }a : String;end;varForm1: TForm1;implementation{$R *.DFM}{$DEFINE AAA} // 定義行。procedure TForm1.FormCreate(Sender: TObject);begina := 'Other';{$IFDEF AAA}a := 'AAA';{$ENDIF}{$IFDEF BBB}a := 'BBB';{$ENDIF}end;procedure TForm1.Button1Click(Sender: TObject);beginCaption := a;end;end.{注:粗體字部分?輸入的代碼}3. 編譯後運行,按下Button,則看到表單標題欄顯示“AAA”。程式編譯了a := ’AAA’的語句。4. 改變定義行的程式段:當改?{$DEFINE BBB}時,再次編譯運行,則看到表單標題欄顯示“BBB”。程式編譯了a := ’BBB’的語句。當取消定義行或改?{$DEFINE NOTHING}或其他名稱時,再次編譯運行,則看到表單標題欄顯示“Other”。程式只編譯了a := ’Other’的語句。三.如何快速的製作和更改版本:使用預編譯指令,在製作同一個程式的多個版本時,只需找出各版本中有區別的單元,依次定義統一的版本符號(Symbol),然後在程式段中加入條件預編譯指令,就可以在實際編譯中取捨編譯不同的程式部分,這樣對於程式的規範性(定義統一的版本符號)和保密性(不同的版本編譯不同的程式部分)有很好的作用。然而,由於該類預編譯指令只能作用於當前單元,所以不便之處在於不能在一個公共單元定義一次版本符號,而必須在各單元中定義統一版本符號才行,故此,在更換版本時,需要確定所有的版本符號都已改變,這樣才能保證各版本的正確性,對此,可以使用Delphi IDE的“Find in Files…”(多個文件中查找字串)的功能,找出所有定義版本符號的文件和位置,然後依次更改,保證所有位置已經改正。 如何将XMl文件的数据导入数据库(sql/FB)?(十万火急需源代码,在线等待) 如何列出控件的事件列表? 超菜问题:关于使用Idftp的传输类型TransferType问题 请问随机数产生的机理是森么? 一个小孩的心里话 关于.chm格式帮助文件的问题 200分求助!!一个treeview拖放的问题,各位高位帮帮忙! 请问高手:直接转到指定的记录应该怎么写?如转到第5条记录,table1.? 谁能解决我的问题,高分奉送???????? 各位老师我有个数据库问题,帮助我。谢谢了! update出的问题?? 快接分
2此為轉貼資料關於Delphi中預編譯指令的使用方法
在Delphi中,也有與C相似的預編譯指令,雖然該類指令只在當前的單個文件有效(也有可能是筆者未全面瞭解該類指令的真正用法),但是這一類指令對於進行多版本的製作工作(如從標準版中出學習版),確實有著相當不錯的用途。
一.指令介紹:1. DEFINE指令:格式:{$DEFINE 名稱}說明 :用於定義一個在當前單元有效的符號(Symbol)。定義了之後可以使用IF DEF和IFNDEF指令來判斷該符號是否存在。
2. UNDEF指令:格式:{$UNDEF 名稱}說明:用於取消一個在當前單元已經定義的符號(Symbol)。該指令和DEFINE配合使用。
3. IFDEF指令:格式:{$IFDEF 名稱}說明:如果該指令後的名稱已經定義,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的代碼段。
4. IFNDEF指令:格式:{$IFNDEF 名稱}說明:如果該指令後的名稱沒有定義,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的代碼段。
5. IFOPT指令:格式:{$IFOPT 開關}說明:如果該指令後的開關已經設立,則編譯該指令後直到{$ELSE}或{$ENDIF}之間的代碼段。舉例:{$IFOPT R+}Writeln('編譯時打開範圍檢查開關');{$ENDIF}
6. ELSE指令:格式:{$ELSE}說明:通過判斷字首Ifxxx的條件式來確定該指令到{$ENDIF}之間的代碼段是否應該被編譯或者忽略掉。
7. ENDIF指令:格式:{$ENDIF}說明:和Ifxxx配合,指明條件預編譯段源代碼段的結束位置。
二.範例:編寫例子,通過預先定義不同的編譯符號,進行不用代碼段的編譯工作。1. 新建一個Delphi專案,在Unit1單元的表單上添加一個Button按鈕。2. 編寫程式如下:unit Unit1;
interface
usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }a : String;end;
varForm1: TForm1;
implementation
{$R *.DFM}
{$DEFINE AAA} // 定義行。
procedure TForm1.FormCreate(Sender: TObject);begina := 'Other';{$IFDEF AAA}a := 'AAA';{$ENDIF}{$IFDEF BBB}a := 'BBB';{$ENDIF}end;
procedure TForm1.Button1Click(Sender: TObject);beginCaption := a;end;
end.{注:粗體字部分?輸入的代碼}3. 編譯後運行,按下Button,則看到表單標題欄顯示“AAA”。程式編譯了a := ’AAA’的語句。4. 改變定義行的程式段:當改?{$DEFINE BBB}時,再次編譯運行,則看到表單標題欄顯示“BBB”。程式編譯了a := ’BBB’的語句。當取消定義行或改?{$DEFINE NOTHING}或其他名稱時,再次編譯運行,則看到表單標題欄顯示“Other”。程式只編譯了a := ’Other’的語句。
三.如何快速的製作和更改版本:使用預編譯指令,在製作同一個程式的多個版本時,只需找出各版本中有區別的單元,依次定義統一的版本符號(Symbol),然後在程式段中加入條件預編譯指令,就可以在實際編譯中取捨編譯不同的程式部分,這樣對於程式的規範性(定義統一的版本符號)和保密性(不同的版本編譯不同的程式部分)有很好的作用。然而,由於該類預編譯指令只能作用於當前單元,所以不便之處在於不能在一個公共單元定義一次版本符號,而必須在各單元中定義統一版本符號才行,故此,在更換版本時,需要確定所有的版本符號都已改變,這樣才能保證各版本的正確性,對此,可以使用Delphi IDE的“Find in Files…”(多個文件中查找字串)的功能,找出所有定義版本符號的文件和位置,然後依次更改,保證所有位置已經改正。