Die
Unit StrUtils enthält die Funktion
AnsiIndexText, mit der das Problem auch lösbar ist:
Delphi-Quellcode:
case AnsiIndexText(Caption, ['Übersicht', 'Kunden', 'Einstellungen', 'Impressum']) of
0 :; // Übersicht
1 :; // Kunden
:
end;
Lesbarer dürfte allerdings das Mehrfach-IF sein...
Gruß Hawkeye