[DCC Fehler] Zu viele lokale Konstanten. Verwenden Sie kürzere Prozeduren.

[DeddyH]

Da es vermutlich nicht viel Sinn macht, den Text in der ComboBox eingeben zu lassen, würde ich die Einträge zur Designtime festlegen und den Style auf csDropDownlist stellen, dann kann man schön über den ItemIndex gehen.

Delphi-Quellcode:

var
  BasePath, SubPath: string;
begin
  BasePath := ExtractFilePath(ParamStr(0)) + 'Items\';
  case ComboBox1.ItemIndex of
    0: 
      SubPath := 'Amulette';
    1:
      SubPath := 'Schwerter';
    2:
      SubPath := 'Keuschheitsgürtel';
    else
      raise Exception.Create('Nichts ausgewählt');
  end;
  BasePath := IncludeTrailingPathDelimiter(BasePath + SubPath);
  Image1.Picture.LoadFromFile(Format('%s%d.jpg', [BasePath, TrackBar1.Position]));
end;