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

某個宣告請大大釋疑

答題得分者是:leveon
agerchen
一般會員


發表:7
回覆:5
積分:2
註冊:2006-12-08

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-12-01 01:18:14 IP:122.117.xxx.xxx 訂閱
雖然寫 Delphi 的年資很久了,但程度一直上不去,有天在網站上看到了一段程式…不太懂意思,想請看得懂的大大幫忙說明一下

[code delphi]
(* 程式省略 *)
TMyThread = class(TThread)
private
FMyClient: TRSClient;
protected
procedure Execute; override;
end;

TRSClient = class(TScrollingWinControl)
private
FMyThread: TMyThread;
(* 程式省略 *)
[/code]

恩,我知道他定義了2個 class,不懂的是---在Tmythread 裏面定義了一個 TrsClient 而下面的類別又宣告了一個 Tmythread,這樣的用意是什麼?
agerchen
一般會員


發表:7
回覆:5
積分:2
註冊:2006-12-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-12-01 01:30:09 IP:122.117.xxx.xxx 訂閱
是不是為了 Thread 裏面Synchronize方便?
因為我並沒有看到程式裏面有 Synchronize 的功能,而畫面確實是會更新的。
leveon
資深會員


發表:30
回覆:386
積分:303
註冊:2012-02-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2012-12-01 18:27:00 IP:111.240.xxx.xxx 訂閱
uses
xxxx;// ->裡面的一定有定義 TRSClient 不然編譯不過去
TMyThread = class(TThread)
private
FMyClient: TRSClient; //---->uses的lib 應該要有定義
protected
procedure Execute; override;
end;
TRSClient = class(TScrollingWinControl) // -------->這個Class 和上面 TMyThread 的FMyClient 沒有關係
private
FMyThread: TMyThread;----->就是上面的TMyThread


用意大概是使用TRSClient時 方便操作 FMyThread 反之一樣
沒甚麼特別


===================引 用 agerchen 文 章===================
雖然寫 Delphi 的年資很久了,但程度一直上不去,有天在網站上看到了一段程式…不太懂意思,想請看得懂的大大幫忙說明一下

[code delphi]
(* 程式省略 *)
TMyThread = class(TThread)
private
FMyClient: TRSClient;
protected
procedure Execute; override;
end;

TRSClient = class(TScrollingWinControl)
private
FMyThread: TMyThread;
(* 程式省略 *)
[/code]

恩,我知道他定義了2個 class,不懂的是---在Tmythread 裏面定義了一個 TrsClient 而下面的類別又宣告了一個 Tmythread,這樣的用意是什麼?
編輯記錄
leveon 重新編輯於 2012-12-01 03:36:59, 註解 無‧
leveon 重新編輯於 2012-12-01 03:37:24, 註解 無‧
agerchen
一般會員


發表:7
回覆:5
積分:2
註冊:2006-12-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2012-12-02 01:28:21 IP:122.117.xxx.xxx 訂閱
恩,確實在 thread 及元件實體上都有相互呼叫的地方,原來只是為了方便操作而已,謝謝 leveon 大大。

===================引 用 leveon 文 章===================
uses
xxxx;// ->裡面的一定有定義 TRSClient 不然編譯不過去
TMyThread = class(TThread)
private
FMyClient: TRSClient; //---->uses的lib 應該要有定義
protected
procedure Execute; override;
end;
TRSClient = class(TScrollingWinControl) // -------->這個Class 和上面 TMyThread 的FMyClient 沒有關係
private
FMyThread: TMyThread;----->就是上面的TMyThread


用意大概是使用TRSClient時 方便操作 FMyThread 反之一樣
沒甚麼特別
nantony
一般會員


發表:3
回覆:7
積分:2
註冊:2010-11-17

發送簡訊給我
#5 引用回覆 回覆 發表時間:2013-12-01 22:48:12 IP:39.190.xxx.xxx 訂閱
 同意 leveon的意见
系統時間:2017-12-12 4:56:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!