Enumerationen zu Symbolen auflösen

[Phoenix]

Bin ich ein Schussel. Hab's schon selber gefunden.

Delphi-Quellcode:

uses Typinfo;

procedure TFrmTestMain.GetEnumNames: TStringList;
var
   si  : SmallInt;
   str : String;
begin
   with result do
   begin
      Clear;

      for si := ord( low( CPrinterPaperSize ) ) to
                ord( high( CPrinterPaperSize ) ) do
      begin
         str := getEnumName( typeInfo( CPrinterPaperSize ), si );
         add(str);
      end;
   end;
end;

@Moderatoren: Ab ins Codelibrary

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]