之前製作 TMyIni 元件想到一個問題 由於 TMyIni 會在背景產生一個與執行檔同名的 ini (如 Project1.ini) 也就是說,一個 Project 只要放一個 TMyIni 元件就夠了 , 但我無法控制 user 在 delphi 中拉一個 MyIni1 到主 form 後,不再繼續 拉 MyIni2 , MyIni3 ....到主 Form 元件可以限定只能唯一嗎 ? 或能具互斥性嗎 , 例如有 A 元件就不能有 B 元件 (不管 A 與 B 是否相同類別)

I think it is not practical to limit the number of components since it can be placed in different forms. Perhaps you could make it some kind of singleton?

藉由一段小技巧 typed const (靜態變數)的使用 判斷元件被實際產生幾次來控管

const
  Instance:Integer=0;    constructor TPanel1.Create(AOwner: TComponent);
begin
  if Instance=0 then
  begin
    inherited;
    Inc(Instance);
  end
  else abort;
end;

發表人 - pedro 於 2003/11/06 17:26:50

引言: 藉由一段小技巧 typed const (靜態變數)的使用 判斷元件被實際產生幾次來控管

const
  Instance:Integer=0;    constructor TPanel1.Create(AOwner: TComponent);
begin
  if Instance=0 then
  begin
    inherited;
    Inc(Instance);
  end
  else abort;
end;

發表人 - pedro 於 2003/11/06 17:26:50

果...果...果然真的可以用 但為何第二個物件的 const 宣告 const Instance:Integer=0; 不會'又'將 Instance 清為 0 ?? 這跟我對靜態變數了解的觀念不同 ...

第二次Instance並不會把 typed const 清為0 ShowMessage(IntToStr(Instance)) 第二次建立元件值和第一次不同 也就是第二次遇到const instance:=0 編譯器並不會assign 0 給instance >但為何第二個物件的 const 宣告 >不會'又'將 Instance 清為 0 ?? >這跟我對靜態變數了解的觀念不同 ...

有關 const 的: http://forum.vclxx.org/topic.php?TOPIC_ID=8819&FORUM_ID=8&CAT_ID=2&Topic_Title=ÀRºAÅܼƫŧi ?&Forum_Title=Pascal --- Everything I say is a lie.

感謝各位長官