全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:609
推到 Plurk!
推到 Facebook!

有關 Use 的問題

尚未結案
thomas0728
中階會員


發表:112
回覆:260
積分:89
註冊:2002-03-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-08-26 08:40:05 IP:61.70.xxx.xxx 未訂閱
各位大大    如果我有二支程式
unit SingleBas;
interface      uses   aa;
......
end.    unit aa;
interface
  uses ...;
...
...
implementation    uses SingleBas;
......
end.    在這種情形下,如果我改了 aa 程式,則程式執行沒問題
但如果我改了 SingleBas,則 SingleBas 中有用到 aa 的地方會出現錯誤
此時只要我打開 aa 並隨便按個空白鍵,重新編譯在執行就不有問題
也就是如果 use 是宣告在 interface  部份,當 SingleBas  有修改時,
use 的所有程式會重新編譯,但宣告在 implementation  之後的 use 檔案不將會重新編譯,請問這有什麼辦法解決嗎?        
如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou
------
Thomas Chiou
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-08-26 12:28:12 IP:147.8.xxx.xxx 未訂閱
2 programs or 2 units in a single program 
thomas0728
中階會員


發表:112
回覆:260
積分:89
註冊:2002-03-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-08-26 13:01:27 IP:211.75.xxx.xxx 未訂閱
是一支程式,好幾個 unit 事實上會發生這種問題可能是表單繼承的關係
unit SingleBas;
interface
uses ...... ConstraintBase;
TYPE
  TSingleBasfORM=CLASS(TForm)
......
PUBLIC
  xConstrobj: TBaseConstrobj;
  procedure test;virtual;
end;
......
implementation    procedure TSingleBasfORM.FormCreate(Sender: TObject);
begin
  xConstrobj:=TBaseConstrobj.Create(self);
end;    procedure TSingleBasfORM.test;
begin
  xConstrobj.xtest;
end;    end.    unit ConstraintBase;
interface
  uses ...;
.....
procedure xtest;virtual;
.......
...
implementation    uses SingleBas;
......
procedure xtest
begin
end;
.....
end.    unit mdBas;
interface
     uses SingleBas,ConstraintBase,ConstraintABC;
type
  TmdbasForm=class(TSingleBasFORM)
  ...
   PUBLIC
      procedure test;OVERRIDE;      END; 
......
implementation    procedure TmdbasForm.FormCreate(Sender: TObject);
begin
  xConstrobj:=TDeptConstrobj.Create(self);
end;    procedure TmdbasForm.TEST;
begin
  INHERITED;<----------這行會有問題,但只要打開 ConstraintABC,隨便按個 空白鍵,重新編譯就沒問題了
  SHOWMESSAGE('AAA')
end;    END.    unit ConstraintABC;
interface
  uses ...,ConstraintBase;
TYPE
   TDeptConstrobj=CLASS(TBaseConstrobj)
.....
  procedure xtest;OVERRIDE;
.......
...
implementation    uses mdBas;
......
procedure xtest
begin
  SHOWMESSAGE('AAA');
end;
.....
end.    end.
程式有點複雜,不知大大是否看的懂,雙種繼承的關係嗎        
如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou
------
Thomas Chiou
william
版主


發表:66
回覆:2535
積分:3048
註冊:2002-07-11

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-08-26 17:50:05 IP:147.8.xxx.xxx 未訂閱
Something wrong??? - Form1 in unit1 - Form2 in unit2 inherits from Form1 unit2 uses unit1 due to the form inheritance, but unit1 uses unit2??? Parent class uses child class??? Or am I missing something?
系統時間:2024-06-29 15:46:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!