Dynamischer Methodenaufruf

[Neutral General]

Benutz ein TDictionary<string, TDoWertProc>

Delphi-Quellcode:

type
  TDoWertProc = procedure(AParam1: Integer; AParam2: TObject) of object; // Natürlich Parameter anpassen 

var doWertDict: TDictionary<string, TDoWertProc>;
begin
  // 1x Initialisieren:
  doWertDict := TDictionary<string, TDoWertProc>.Create;
  doWertDict.Add('Wert1', DoWert1);
  doWertDict.Add('Wert2', DoWert2);

  // Aufruf
  doWertDict[key](param1, param2);
end;