Organizing enums
I use a lot of enums and was thinking if there is better to way to 'find' the proper enum to be used. So, I was thinking something like this for THTMLType enum:
THTMLType = (htTemplate, htStatic, htHeader, htCustom);
TReportEnums = record
HTML: THTMLType;
end;
var gEnums: TReportEnums;
and used like this:
vHTMLReportType := gEnums.HTML.htTemplate;
If I try I get error: E2018 Record, object or class type required, on HTML. .
Edit: I would like to have something that could use code completion, so I don't need to remember htTemplate. I would type Enums. and I would select among options HTML. and then I would see THTMLType options...
Any suggestions, or this is just not possible?
This is awesome!
It can be defined outside of class, too:
type
THTMLType = (htTemplate, htStatic, htHeader, htCustom);
TGEnums = class
type
HTML = THTMLType;
end;
procedure DoIt(aHtml: TGEnums.HTML);
begin
end;
procedure TForm2.FormCreate(Sender: TObject);
var x: TGEnums.HTML;
begin
x := TGEnums.HTML.htTemplate;
DoIt(x);
DoIt(TGEnums.HTML.htTemplate);
end;