Strings nur einmalig im Code verwenden - Zugriff

[DeddyH]

Oder vielleicht so etwas?

Delphi-Quellcode:

type
  TSomeType = (stOK, stError, stBananenSindKrumm);

const
  SOMESTRINGS: array[TSomeType] of string = ('Alles in Butter', 'Oops', 'Is mir völlig Banane');

...

ShowMessage(SOMESTRINGS[TSomeType.stBananenSindKrumm]);