Aufzählungstyp in string Umwandeln

[Sir Rufo]

und wenn man ganz flexibel sein möchte (wurde von DeddyH auch schon gezeigt)

Delphi-Quellcode:

type
  TOperator = (opPlus, opMinus, opMultiply, opDivide);
const
  TOperatorStr : array[TOperator] of string = ( 'Plus', 'Minus', 'Multiply', 'Divide' );

...

procedure TForm1.Button1Click( Sender : TObject );
begin
  ShowMessage( TOperatorStr[opPlus] );
end;