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

[sirius]

Nein. Namen von Variablen und Konstanten werden nirgends gespeichert.

Aber wie wärs denn mit Ressourcen?

[Bernhard Geyer]

Kannst du uns auch verraten wieso hier der direkte zugriff auf "Konstanten" schlecht wäre?

Was du scheinbar willst ist eher eine Key-Value-Tabelle die du bei Programmstart "konstant" füllst.
Dein wunsch könnte unter .NET u.U. per Reflektion gelößt werden. Unter Win32 ist mit abgeschalteten Debug-Infos keinerlei Info mehr vorhanden wie die Konstante im Quellcode benannt wurde.

[Ares]

Danke, ich werde mir was anderes überlegen :-)