Variable über zusammengesetzte Strings ansprechen

[hirnstroem]

'loha Folks,

in einem Projekt befindet sich ein Unit in welchem ein Paar Konstanten definiert werden:

Delphi-Quellcode:

const
  HWV_DI = 'DI';
  HWV_GPI = 'GPI';

Gibt es eine möglichkeit diese nun ähnlich wie mit der FindComponent Routine zu suchen? Es ist nämlich so, dass der "Stamm" der Konstanten stets gleichbleibt und lediglich das Ende unterschiedlich ist. Desweiteren werden künftig immer mehr Konstanten mit demselben "Stamm" dazukommen und genau diese möchte ich "dynamisch" ansprechen können, wenn das geht, irgendwie -.-

Grüsse
hirnstroem

[mischerr]

Ist mir nicht bekannt und kann mir auch nicht vorstellen dass das so funktioniert.

Ich würde mir ein konstantes Array definieren und dieses dann durchsuchen. Oder eine Client-Datenmenge, oder eine Klasse erstellen, ähnlich wie..

Delphi-Quellcode:

TMyClass = class
  VarName : string;
  VarValue: integer;
end;

..dann eine TList und dort die ganzen Typen im initialization-Abschnitt der unit registrieren. Dann noch eine Funktion, die den gesuchten Typ aus der jeweils gewählten Datenmenge liefert, ähnlich wie..

function GetConst(const AName: string): string; ..und fertig. Der Ordnung halber bei Verwendung der Klasse+TList aber nicht vergessen, die Liste im finialization Abschnitt wieder zu freen. Aber viele Wege führen nach Rom...

[Codewalker]

Wäre aber eine nette Funktion die man sich in Delphi durchaus wünschen würde, Variablen und Konstanten per String-Namen anzusprechen. Kann man das nicht irgendwo vorschlagen? Oder vielleicht liest das ja jemand mit nem guten Draht zu CodeGear

[fLaSh11]

Mach doch einfach ne Liste aus den Konstanten.

Code:

const1=asdf;
const2=fdsa;
...

und dann such die Konstante in der Liste und hol den Wert raus.

[Apollonius]

Was haltet ihr von einer Stringlist (als Speicherung für die Variablen). Wenn man da mit Names und Values arbeitet, ist ein Zugriff über Strings möglich.

[SirThornberry]

Das vorhaben ist nicht möglich da Variablennamen und Constantennamen in der kompilierten Exe/Dll etc. nicht mehr vorhanden sind.
Die gewünschte parallele zu FindComponent hingt auch. Denn FindComponent sucht nicht eine Variable mit einem bestimmtem Namen sondern geht alle Komponenten durch und vergleicht das Property "Name". Und zufällig ist dieses Property immer gleich mit dem Variablennamen aber eben auch nur so lange wie man die Komponenten per IDE auf das Form setzt.

[Apollonius]

Stimmt, als echte Variablen geht es nicht, wie man auch sehr schön im Assemblercode sieht, wo dann nur noch Adressen auftauchen. Dennoch kann man das Verhalten von Findcomponent nachbilden, und da die Stinglist es unterstützt muss man nix mehr selber machen.

[SirThornberry]

genau, das Verhalten von FindComponent kann man recht einfach nachbilden. Es muss eben einem nur bewusst sein das Variablennamen im compilat nicht mehr existent sind und man somit alle Namen als Daten hinterlegen muss (z.B.: in einer Stringlist)

[QuickAndDirty]

Delphi-Quellcode:

TNamen = (Hans,Peter, Uwe, Otto);
Const AdresseVon : array[TNamen] of String = ('Wilhelmstrasse', 'Otterweg', 'Pupsweg', 'Blödweg');
Const Namen: array[TNamen] of String = ('Hans','Peter','Uwe','Otto');

Function FindConst(aString:tString):tname;
var i:integer;
    gefunden:boolean;
begin
  gefunden := false
  For i := integer(Hans) to integer(otto) do
  Begin
    if namen[tnamen(i)] = astring then
    Begin
      gefunden := true;
      result := tnamen(i);
      break;
    end;  
  end; 
  if not gefunden then
    Raise Exception.create('Dumme sache');
end;

Sowas ungefähr könnte gehen

[Apollonius]

Damit gewinnt man nichts, da man die Namen nicht wie gewünscht zusammensetzen kann.