Hallo Gehstock,
in deinem Beispiel sind die CASE-Labels Hexadezimalzahlen. Falls dies für alle möglichen Werte gilt, könntest du folgende Lösung verwenden:
Delphi-Quellcode:
case StrToIntDef('$' + land, -1) of
$0000 : Label53.Caption := 'Keiner';
$020C : Label53.Caption := 'Deutschland';
$01D0 : Label53.Caption := 'Österreich';
$01C8 : Label53.Caption := 'Schweiz';
else
Label53.Caption := '(ungültig)';
end;
Handelt es sich nicht nur um Hexadezimalwerte, solltest du dir die Funktion
AnsiIndexText ansehen:
klick
Gruß Hawkeye