Function Pointer in Array?

[Sir Rufo]

oder auch so (ohne Pointer Gedöns)

Delphi-Quellcode:

var
  res : Boolean;
begin

  case IndexText( aCmd, [ 'GET_STOCK_POSITION', 'GET_ARTICLENR_BY_BARCODE' ] ) of
    0 :
      res := erp.GetStockPosition( Fetch( aActLine ), sResult );
    1 :
      res := erp.GetArticleNrByBarcode( Fetch( aActLine ), sResult );
  end;

  if not res then
    begin
      WriteTCPLn( AContext, '001 Not found' );
      AddLog( erp.GetErrorMessages );
    end
  else
    begin
      WriteTCPLn( AContext, '000 ' + sResult );
      erp.ClearErrorMessages;
    end;
end;