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