Enumerationen zu Symbolen auflösen

[Dannyboy]

Zwei Dinge, die mir auffallen:

1.)

Zitat:

procedure TFrmTestMain.GetEnumNames: TStringList;

Da mach' mal besser eine Funktion daraus, wegen dem Ergebnistyp (result).

2.)

Code:

begin 
   with result do

Bin mir nicht sicher, aber müsste das nicht erst mal created werden,
bevor Du darauf zugreifst, damit Speicherplatz reserviert wird? Das
könnte so(nst) vielleicht eine Exception auslösen!