BPSoftware.com Blog

Friday, July 28, 2006

TypInfo is cool!

uses
TypInfo;

type
TColorState = (CS_Red, CS_Blue, CS_Green);

procedure TForm1.Button1Click(Sender: TObject);
var
colorstate: TColorState;
begin
ColorState:= TColorState(GetEnumValue(TypeInfo(TColorState),'CS_Red'));
Edit1.Text:= GetEnumName(TypeInfo(TColorState), Ord(ColorState));
end;

Labels: Code, Delphi, WIN32

posted by Brad Prendergast at 8:18:00 AM

Comments:

Yes they are... and if you design your enums to use a Delphi standard, you can write some simple helper functions to return text that is more human.

e.i.
In Classes.pas

TStringsDefined = set of (sdDelimiter, sdQuoteChar, sdNameValueSeparator,
sdLineBreak, sdStrictDelimiter);

write a function like:

GetHumanEnumName(TypeInfo(TStringsDefined), Ord(sdNameValueSeparator));

that results in text: "Name Value Seperator"

posted by

John E Friday, July 28, 2006 12:00:00 PM