String Entscheidungen mit case treffen!!!

[Fuchtel]

Hallo,

wenn wan unbedingt mit Case arbeiten will:

Delphi-Quellcode:

  If length(TLabel(Sender).Caption) > 0 then
    case TLabel(Sender).Caption[1] of 
      'Ü' : begin                 //Übersicht'
               ... 
            end; 

      'K' : begin    // Kunden
              ... 
            end; 

      'E' : begin    // Einstellungen
              ... 
            end; 

      'I' : begin // Impressum
              ... 
            end; 
    end;

Gruß Fuchtel