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

如何实现对象引用?

尚未結案
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-02-15 15:27:15 IP:219.153.xxx.xxx 未訂閱
各位先进: 我有一个类B,还有一个类A 我想在类B中引用A,不是A的副本,该怎样做? 在具体一些: 我现在想用组件封装一个用于设置类型的窗体, 这些类型是另一个类的属性。 请问该如何实现呢? 先谢!
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-02-15 15:30:51 IP:219.153.xxx.xxx 未訂閱
再补充一下: 不希望用再uses中加入类A的unit,因为这样的话,限制太大。
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-02-22 22:20:32 IP:219.153.xxx.xxx 未訂閱
我问得是不是实现不了呢? C 中可能用&引用可以实现,delphi呢? 希望大侠指点迷津,谢谢!
seaturn99
版主


發表:69
回覆:427
積分:214
註冊:2003-08-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-02-23 09:22:24 IP:203.66.xxx.xxx 未訂閱
引言: 我问得是不是实现不了呢? C 中可能用&引用可以实现,delphi呢? 希望大侠指点迷津,谢谢!
zzmbeyond01 您好: 封裝成 ActiveX/COM 物件不知道能不能解決您的問題... 也許可以嘗試看看... 我想 C 應該也是需要 include Header 才能用動作的吧?? ---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ----
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-02-24 11:53:05 IP:218.70.xxx.xxx 未訂閱
SouthWind: 谢谢,您的指点! 我是想通过对象引用来实现对另一个类的调用,C++中通过引用来解决多重继承的问题,delphi是否也可以实现类似的机制呢? zzmbeyond01
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-02-24 22:42:54 IP:211.20.xxx.xxx 未訂閱
引言: SouthWind: 谢谢,您的指点! 我是想通过对象引用来实现对另一个类的调用,C++中通过引用来解决多重继承的问题,delphi是否也可以实现类似的机制呢? zzmbeyond01
zzmbeyond01 你好 不知你要的是否如下的架構,類A為類B的一個屬性(類別屬性)
Type
   TClassA = Class(xxx)
      ......
   End;       ClassB = Class(xxxxx)
       FClassA : TClassA;
       .....
       Procedure SetClassA(Value:TClassA);
   Private
      ......
   Public
      Property AClass:TClassA Read FClassA Write SetClassA ;
   End;
zzmbeyond01
中階會員


發表:98
回覆:167
積分:53
註冊:2003-09-07

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-02-25 13:00:59 IP:218.70.xxx.xxx 未訂閱
[/quote] zzmbeyond01 你好 不知你要的是否如下的架構,類A為類B的一個屬性(類別屬性)
Type
   TClassA = Class(xxx)
      ......
   End;       ClassB = Class(xxxxx)
       FClassA : TClassA;
       .....
       Procedure SetClassA(Value:TClassA);
   Private
      ......
   Public
      Property AClass:TClassA Read FClassA Write SetClassA ;
   End;
[/quote] 谢谢Chance36大大! 我以前说的可能不清楚,还是Chance36大大点破◎◎
 
   ClassB = Class(xxxxx)
       FClassA : TClassA;
如果这样来做的话是不是,类A在类B中是一个副本形式存在吗? 如果我希望让A在类B中引用,在内存中只有一个类A的对象呢? 谢谢! zzmbeyond01
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-02-25 17:33:00 IP:211.20.xxx.xxx 未訂閱
constructor ClassB.Create; begin   inherited;   FClassA:=TClassA.Create; 在類B建立時同時建立類A的實體 End;
系統時間:2024-05-03 3:01:28
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!