Vereinfachung von Procedurenaufrufe

[ferby]

Hallo,

Ich habe ein Frage,
und zwar ob dieser Quelltext vereinfacht bzw. kürzer geschrieben werden kann:

Delphi-Quellcode:

  case ki_status[1] of
  '0': ki_status_0;
  'A': ki_status_A;
  'B': ki_status_B;
  'C': ki_status_C;
  'D': ki_status_D;
  'E': ki_status_E;
  'F': ki_status_F;
  'G': ki_status_G;
  'H': ki_status_H;
  'I': ki_status_I;
  'J': ki_status_J;
  'K': ki_status_K;
  end;

ki_status:string

ki_status_0 bis ki_status_K sind proceduren;


ferby