枚举类型

type
  TCountryCodes = (CHN, BRA, DEU, RUS);

function GetCountryName(const CountryCode: TCountryCodes): string;
const
  CountryNames: array[TCountryCodes] of string = ('中国', '巴西', '德国', '俄罗斯');
begin
  result := CountryNames[CountryCode];
end;