Zuweisung für Enums überladen

[DeddyH]

Reicht auch die Billig-Variante?

Delphi-Quellcode:

type
  TMyType = (mtOne, mtTwo, mtThree);

const
  MYTYPENAMES = array[TMyType] of string = ('Eins', 'Zwei', 'Drei');

function TypeAsString(aType: TMyType): string;
begin
  Result := MYTYPENAMES[aType];
end;