Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Neutral General,
20. Apr 2018
Ich schätze mal wenn er kein if benutzen will, ist ein case auch nicht so viel besser.
Außerdem funktioniert case nicht mit Strings.
Und ich schätze das Problem ist dass er nicht nur 2 Methoden hat sondern eine ganze Menge und das dann ein recht großer case oder if-Block wäre.
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Neutral General,
20. Apr 2018
Benutz ein TDictionary<string, TDoWertProc> ;)
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);