Danke für die bisherigen Antworten. Leider kommt keine der Lösungen in Frage, da meine Prozeduren im
Unit-Kopf deklariert sind und nicht "lose" rumliegen.
Kleine aber wichtige Info: meine Prozeduren sind im
Unit-Kopf in einer Klasse deklariert.
Delphi-Quellcode:
unit uTest;
interface
uses ... ;
type
TFunc =
procedure(Parameter ...);
type
TWorkerThread =
class(TThread)
private
aFunc: TFunc;
procedure meineProzedur1(Parameter ...);
procedure meineProzedur2(Parameter ...);
procedure meineProzedur3(Parameter ...);
// ...
end;
implementation
procedure TWorkerThread.meineProzedur1(Parameter ...);
begin
end;
procedure TWorkerThread.meineProzedur2(Parameter ...);
begin
end;
procedure TWorkerThread.meineProzedur3(Parameter ...);
begin
end;
procedure TWorkerThread.Execute;
begin
aFunc := TWorkerThread.meineProzedur2;
// <= geht nicht
end;