Quelltext Optimierung

[Furtbichler]

Delphi-Quellcode:

Type
  TDecodeProc = Procedure (Dump : TDump);
  
Const
  DecodeProc : Array [1..N] of TDecodeProc = (
   DecodeProc1, DecodeProc2...
...
);

Procedure CallIt;
Begin
  DecodeProc[Dmi0.Header.Type](Dump);
End;

So könnte das gehen.