關於TypeInfo function與列舉、集合的問題 |
|
缺席
|
|
Coffee
版主   發表：31 回覆：878 積分：561 註冊：2006-11-15 發送簡訊給我 |
為了操作列舉型態（Enumerated Type），我從站上的文章中找到GetEnumName, GetEnumValue與TypeInfo的使用方法。 主要參考的文章標題： 找所有包含有Items(TStrings) 這屬性的元件, 且對這些 item[idx] 做存取 如何取出集合或列舉形態的值 如何對列舉和字串互相轉換 因此我在自己測試的Unit中宣告如下 type TMyOption = ( moFirst=3, moSecond=6, moThird=9); type TMyOptionSet = set of TMyOption; function MyEnumTest(pOption : TMyOption):string; begin Result:=GetEnumName(TypeInfo(TMyOption), Ord(pOption)); end; 這樣的方式，基本上與上列文章同。 但是Compile時產生了一個錯誤：type 'TMyOption' has no type info 在論塘中有些文章有提到可以用Compiler Directive解決（{$M }），但試的結果仍然一樣 於是我試著將這些測試碼放入一個含有TForm的Unit裡（但並非是Form的成員），這些程式碼運作正常，Result也能夠傳回相對應的列舉字串。 而在翻Delphi Source時無間發現有個SetToString的函式，註解上提到只對已註冊的Set才能提供， 想請教各位，如果不想把這樣的宣告放在Form上（因為這些宣告與函式被許多的Unit引用），是否有其它的方法可以使用TypeInfo 或達到一樣的效果。或者是怎樣可以註冊型態。
------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。 為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。 在引述到我的文時自然會儘量替各位想辦法，謝謝大家！ 編輯記錄
Coffee 重新編輯於 2007-10-24 11:11:31， 註解 無‧
|
發表時間：2006-11-15 16:41:21
IP:220.130.xxx.xxx 訂閱
系統時間：2024-04-28 3:20:56
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |