Zugriff auf Variablen/Constanten über deren Namen

[Ares]

Hallo!

In einer Unit gib es eine große Menge von String-Konstanten die ich gerne in einer anderen Unit verwenden würde. Der Zugriff auf die soll aber nicht direkt erfolgen, sondern über eine Getter-Funktion:

Delphi-Quellcode:

Unit A;

const
  EINE_KONSTANTE      = 'abc';
  NOCHEINE_KONSTANTE  = '123';
  ...

  function GetConstant(Name: string): String
  begin
    result := ''; // Default Rückgabe
    if (Name='EINE_KONSTANTE')     then result := EINE_KONSTANTE;
    if (Name='NOCHEINE_KONSTANTE') then result := NOCHEINE_KONSTANTE;
    ...
  end;

Nun habe sind es aber wirklich sehr viele Konstanten und die Funktion GetConstant müsste für jede Konstante eine eigene If-Abfrage enthalten. Das ist natürlich nicht sehr elegant.

Gibt es also eine Möglichkeit mit dem String-Wert 'EINE_KONSTANTE' direkt den Inhalt der gleichnamigen Konstante zur erhalten? Die funktion würde dann quasi so aussehen:

Delphi-Quellcode:

  function GetConstant(Name: string): String
  begin
    if (EsGibtKonstanteMitFolgendemNamen(Name)=false) then result := ''
      else result := WertDerKonstanteMitFolgendemNamen(Name);
  end;

Geht sowas?

Besten Dank
Ares