Function Pointer in Array?

[e.asy]

Moin,

ich hoffe das ist die richtige Kategorie hier.

Ich bin immer noch an meinem Dienst dran, und ärgere mich gerade über meinen if-then-elseif-Code.

Beispiel:

Delphi-Quellcode:

    
    if (AnsiSameText(aCmd, 'GET_STOCK_POSITION')) then
    begin
      if (not(erp.GetStockPosition(Fetch(aActLine), sResult))) then
      begin
        WriteTCPLn(AContext, '001 Not found');
        AddLog(erp.GetErrorMessages);
      end
      else
      begin
        WriteTCPLn(AContext, '000 '+sResult);
        erp.ClearErrorMessages;
      end;
      Exit;
    end
    else if (AnsiSameText(aCmd, 'GET_ARTICLENR_BY_BARCODE')) then
    begin
      if (not(erp.GetArticleNrByBarcode(Fetch(aActLine), sResult))) then
      begin
        WriteTCPLn(AContext, '001 Not found');
        AddLog(erp.GetErrorMessages);
      end
      else
      begin
        WriteTCPLn(AContext, '000 '+sResult);
        erp.ClearErrorMessages;
      end;
      Exit;
    end;

Nun kann man in C hier wunderbar mit Pointern etc arbeiten, um dieses doch entsprechend "schöner" zu gestalten.
Kann man sowas auch in Delphi machen (Da der Aufruf eigentlich immer gleich ist)?

Also sowas wie (Schematisch):

Delphi-Quellcode:

aCommands = array[x..x]
 (
    ('GET_STOCK_POSITION', erp.GetStockPosition, RESULT_IS_STRING),
    ('GET_ARTICLENR_BY_BARCODE', erp.GetArticleNrByBarcode, RESULT_IS_STRING),
    ('GET_STOCK_COUNT', erp.GetStockCount, RESULT_IS_INT)
  )

Meine Bastelei mit Pointern und einen type auf prodecdure of object führte nicht zum Erfolg.
Entweder funktionierte es gar nicht, oder ich habe im Compiler immer schöne E2009-Meldungen bekommen, dass die Typen nicht übereinstimmen.


Auch hier Beispiele/Hinweise sind gerne gesehen.


Sonnige Grüsse,
easy