statisches Array in der Unit festlegen

[sirius]

Wie du das mit der Sortierung machst, weiß ich nicht, aber anlegen kannst du es so:

Delphi-Quellcode:

type TElement=record
       Key:string;
       Value:Integer;
     end;

const cMethodList:array[1..3] of TElement=(
       (Key:'Meth1'; Value:1),
       (Key:'Meth2'; Value:2),
       (Key:'Meth3'; Value:3)
       );

Jetzt brauchst du noch eine Zuordnung von Zahlen zu Methoden. Dies bietet sich über dynamische Methoden an. Leider erlaubt es der Delphi-compiler nicht direkt Nummern zu vergeben für dynamsiche Methoden. Ausßnahme sind Methoden für die Messageverarbeitung. Und so könnten wir rangehen:

Delphi-Quellcode:

const Base=WM_User;
type myClass=class
      procedure Meth1(var msg:TMessage); message Base+1;
      procedure Meth2(var msg:TMessage); message Base+2;
      ...

//Aufruf dann innerhalb der Klasse über:
  perform(Base+cMethodList[gefunden].Value,param1,param2);
  //in param1 kannst du einen übergabeparameter verstecken

Ist ein bisschen Umständlich und dürfte nur bei TControls so einfach mit perform klappen. Ansonsten geht es aber auch.


Mir fällt noch etwas anderes ein.
Du gehst einfach über die Methdoe Methodaddress. Das ist noch kürzer und erfordert keine Liste. Es erfordert nur, dass die Methoden published sind. Dann kannst du die Methoden aufrufen.