Articles   Members Online: 3
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
How to retrieve all available TBrushStyle values as a list of strings Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
29-Aug-02
Category
Object Pascal
Language
Delphi 2.x
Views
123
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
DSP, Administrator
Reference URL:
DKB
			Author: Tomas Rutkauskas

I need to get a list of strings (like a StringList) with the possible values for a 
TBrushStyle property (bsSolid, bsClear, bsHorizontal, for example). I want to build 
a ComboBox with this options. How can I set the property Items of my ComboBox 
directly with all the values from the enumerated type TBrushStyle? My ComboBox will 
be alike the Property Editor for this type.

Answer:

You can use runtime type information (RTTI) to do that. Below is an example:

1   uses
2     {...}, TypInfo
3   
4   procedure BrushStylesAsStrings(AList: TStrings);
5   var
6     a: integer;
7     pInfo: PTypeInfo;
8     pEnum: PTypeData;
9   begin
10    AList.Clear;
11    pInfo := PTypeInfo(TypeInfo(TBrushStyle));
12    pEnum := GetTypeData(pInfo);
13    with pEnum^ do
14    begin
15      for a := MinValue to MaxValue do
16        AList.Add(GetEnumName(pInfo, a));
17    end;
18  end;


			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC