Vereinfachung von Procedurenaufrufe

[JasonDX]

Du könntest dir ein zusätzliches Array of Procedure anlegen, ca. so etwas:
KI_statusList: array['A'..'K'] of Procedure; Danach musst du die noch einmalig zuweisen:

Delphi-Quellcode:

KI_statusList['A'] := ki_status_a;
KI_statusList['B'] := ki_status_b;
//...

das aufrufen geht dann relativ einfach. Statt dem endlosen case gehts so:
KI_StatusList[KI_Status[1]](); Das dürfte vielleicht sogar noch schneller sein als das case.

Ich hab jetzt kein Delphi da, also kann ich für die Syntax nicht garantieren, aber das Prinzip dürfte ersichtlich sein