Variable dynamisch übergeben oder so...

[DeddyH]

Oder eine entsprechende Funktion schreiben in der Art:

Delphi-Quellcode:

const 
  MYFIRSTCONST = 1;
  MYSECONDCONST = 2;

function StrToConst(const ConstName: string): DWORD;
begin
  Result := 0;
  if AnsiLowerCase(ConstName) = 'myfirstconst' then
    Result := MYFIRSTCONST
  else if AnsiLowerCase(ConstName) = 'mysecondconst' then
    Result := MYSECONDCONST
  else
    raise Exception.CreateFmt('"%s" ist not a valid constant name.',[ConstName]); 
end;

Aber schön ist was anderes

[edit] Roter Kasten, hallo *klopf* *klopf* [/edit]