Funktionsnamen aus Variablen?

[KLS]

vielleicht nicht das beste, aber so geht es auf jeden fall mit einfachen variablen.

Delphi-Quellcode:

var
  wartezeitschliessen : integer;

procedure TForm1.schliessen;
begin
  sleep(wartezeitschliessen); //nur als beispiel
  Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  s = 'schliessen 5000';
var
  sp,st : string;
begin
  sp := copy(s,1,pos(' ',s) - 1); //schliessen
  st := copy(s,pos(' ',s) + 1,length(s)); //5000
  wartezeitschliessen := strtoint(st); //globale variable!
  StarteRoutineByName(Form1,sp);
end;