Strings nur einmalig im Code verwenden - Zugriff

[RandomDD]

Oder so.

Aber geht das nicht schöner und kompakter? Eventuell sogar noch über einen Type?

[Neutral General]

Wie viel kompakter als Konstantenname = Wert willst du es denn noch haben?
Du kannst optional für deine Konstanten einen Typ angeben:

Delphi-Quellcode:

const
  sString1: String = 'String 1';
  sString2: String = 'String 2';

[RandomDD]

Also ungefähr so?

Delphi-Quellcode:

type
 TStringListe = record
 
 const
  sString1 = 'String 1';
  sString2 = 'String 2';
end;

var
 MeineStrings: TStringListe;

showmessage(MeineStrings.sString1);

[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]);