So in etwa sollte es gehn... =)
Delphi-Quellcode:
Unit uProg;
Interface
Uses SysUtils;
Type
TProg =
Procedure(
Var Res );
Procedure Machwas(
Const Idx: Integer );
Implementation
Procedure Prog1(
Var Res );
Begin
// machwas 1
End;
Procedure Prog2(
Var Res );
Begin
// machwas 2
End;
Procedure Machwas(
Const Idx: Integer );
Var pMW: TProg;
HotteHue: Integer;
Begin
Case Idx
of
1: pMW := Prog1;
2: pMW := Prog2;
Else pMW :=
Nil;
End;
If Assigned( pMW )
Then Begin
pMW( HotteHue );
// ...
End;
// ...
End;
end.
Achtung, wenn du Proceduren oder Funktionen von Klassen benutzt, gehört das so:
Delphi-Quellcode:
//...
Type
TProg = Procedure( Var Res ) Of Object;
//...
Bye Christian