Vereinfachung von Procedurenaufrufe

[himitsu]

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.