Wie gesagt, du hattest ja schon die "optimiertere" Version ... die Lange wäre die mit IFs -.-''
Delphi-Quellcode:
If ki_status[1] = '0' Then ki_status_0
Else If ki_status[1] = 'A' Then ki_status_A
Else If ki_status[1] = 'B' Then ki_status_B
...
Else If ki_status[1] = 'J' Then ki_status_J
Else If ki_status[1] = 'K' Then ki_status_K;
Obwohl die lange Variante bei meiner Schreibweise noch 2 Zeilen einsparren würde, aber es wäre halt vom kompilieren Code mehr und auch noch ein kleines bissl uneflektiv ^^
[add]
Noch uneffektiver wäre es ohne die ELSE
Delphi-Quellcode:
If ki_status[1] = '0' Then ki_status_0;
If ki_status[1] = 'A' Then ki_status_A;
If ki_status[1] = 'B' Then ki_status_B;
...
If ki_status[1] = 'J' Then ki_status_J;
If ki_status[1] = 'K' Then ki_status_K;
Dann würden ja immer alle IFs ausgewertet werden, wärend bei der Verwendung von ELSE wenigstens die IFs, nach dem Ausgeführen einer Prozedur, nicht ausgewertet werden.