Procedure Var.

[Kedariodakon]

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