在BCB 深度歷險一書中，第二章有談到 RTTI 以下的程式碼，是掃描Form上所有元件，將Color 的屬性都設成紅色

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  PPropInfo PropInfo;
  for (int i = 0; i < ComponentCount; i  )
  {
    PropInfo = GetPropInfo((TTypeInfo *)Components[i]->ClassInfo(),"Color");
    if ( PropInfo )
      SetOrdProp( Components[i], PropInfo, clRed);
  }
}

可是書上最後有提供一個技巧，應該要判斷屬性型態是否為 TColor 以防止萬一有一個元件Color 的屬性，又剛好型態是 String 我利用 Code Insight 的 Code completion 功能，找到 GetPropInfo(TTypeInfo *TypeInfo,AnsiString PropName,TTypeKind aKinds); 於是我便寫了下面的程式碼，可是卻出現錯誤！ 不接受三個參數。請大家幫我指點迷津！ PropInfo = GetPropInfo((TTypeInfo *)Components[i]->ClassInfo() ,"Color", (Typinfo::TTypeKind)tkInteger); 我在想是不是還有其他函式可以用，可是我一搜尋，都會跑到TPropertyEditor 而且看到的說明都和我所需要的有偏差，舉例來說... Help 中查到的是 Typinfo::PPropInfo __fastcall GetPropInfo(void); 可是實際上用到的是 *PPropInfo GetPropInfo(TTypeInfo *, AnsiString *); 或是 *PPropInfo GetPropInfo(TTypeInfo *, AnsiString *, TTypeKind *);

BCB 的說明文件不足是 BCB 使用者心中的痛... 找了一下 include 目錄下所有 GetPropInfo 發現主要在 TypInfo.hpp 中有下述 overload 的宣告

extern PACKAGE PPropInfo __fastcall GetPropInfo(System::TObject* Instance, const AnsiString PropName, TTypeKinds AKinds)/* overload */;
extern PACKAGE PPropInfo __fastcall GetPropInfo(TMetaClass* AClass, const AnsiString PropName, TTypeKinds AKinds)/* overload */;
extern PACKAGE PPropInfo __fastcall GetPropInfo(PTypeInfo TypeInfo, const AnsiString PropName)/* overload */;
extern PACKAGE PPropInfo __fastcall GetPropInfo(PTypeInfo TypeInfo, const AnsiString PropName, TTypeKinds AKinds)/* overload */;

一開始我也以為您的程式碼是沒錯的，初看了錯誤訊息還看不出來，於是試著強迫轉型(like you do)，但仔細看錯誤訊息後才發現，這不是強迫轉型可以作的。 TTypeKinds 是一個 TTypeKind 的 Set 可以放很多個 TTypeKind，而 tkInteger 只是一個元素，不是一個 Set ，所以 BCB 無法幫您轉換。 改用以下的程式即可順利判斷屬性是何種參數。

  PPropInfo PropInfo;
  TTypeKinds typekind;
  typekind= typekind<ClassInfo(),"Color",typekind);
    if ( PropInfo )
      SetOrdProp( Components[i], PropInfo, clRed);
  }

沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://big5.to/吃軟也吃硬 http://coolsite.to/ushells 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

再貼一次 code 好像 << 顯示會有問題

  PPropInfo PropInfo;
  TTypeKinds typekind;
  typekind= typekind<<tkInteger;
  for (int i = 0; i < ComponentCount; i  )
  {
    PropInfo = GetPropInfo((TTypeInfo *)Components[i]->ClassInfo(),"Color",typekind);
    if ( PropInfo )
      SetOrdProp( Components[i], PropInfo, clRed);
  }

沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://big5.to/吃軟也吃硬 http://coolsite.to/ushells 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

原來如此，dllee 桑你實在太厲害了！ 小弟感激不盡！ 另外，下面有一題，我一直解不出來，能夠麻煩版你抽空幫我看一下嗎？ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25477

引言: 再貼一次 code 好像 << 顯示會有問題

  PPropInfo PropInfo;
  TTypeKinds typekind;
  typekind= typekind<ClassInfo(),"Color",typekind);
    if ( PropInfo )
      SetOrdProp( Components[i], PropInfo, clRed);
  }

沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://big5.to/吃軟也吃硬 http://coolsite.to/ushells 介紹Shells,LiteStep,GeoShell....

請教一下... 我要設定bool的資料,找不到設bool的指令,目前是用SetOrdProp,如: for (int i = 0; i < ComponentCount; i ) { PropInfo = GetPropInfo((TTypeInfo *)Components[i]->ClassInfo(),"Enabled",typekind); if ( PropInfo ) SetOrdProp( Components[i], PropInfo, 1); } 想請問一下,有沒有設bool的專用指令,找help都找不到...... 謝謝先!!