![]() |
JvID3v21: alle Genres in einer ConboBox?
Hallo,
ich möchte in meiner ComboBox gerne alles verfügbaren Genres anzeigen lassen. Irgendwie klappt es so überhaupt nicht.
Delphi-Quellcode:
ComboBox1.Items.AddStrings(JvID3v21.Texts.ContentType);
|
Re: JvID3v21: alle Genres in einer ConboBox?
Frage selbst beantwortet.
Delphi-Quellcode:
ID3_Genres(ComboBox1.Items);
|
Re: JvID3v21: alle Genres in einer ConboBox?
Jetzt habe ich zwar alle Genres, aber wie könnte ich nach dem Laden einer Datei, den richtigen ItemIndex zuweisen?
Oder andersrum gefragt: Ich habe unter anderem den Eintrag Country in der ComboBox zustehen. Wie kann ich diese jetzt nach Country durchsuchen und mir den ItemIndex anzeigen lassen? Hat vielleicht jemand einen kleinen Code-Schnipsel parat? Danke. |
Re: JvID3v21: alle Genres in einer ConboBox?
Zitat:
|
Re: JvID3v21: alle Genres in einer ConboBox?
Delphi-Quellcode:
Sind aber nicht genügend Parameter
ComboBox2.Items.IndexOf:=JvID3v21.Texts.ContentType;
|
Re: JvID3v21: alle Genres in einer ConboBox?
Delphi-Quellcode:
is jetz bissel geraten, weiß nicht auswendig wie die propertys heißen, aber prinzip sollte klar sein.
ComboBox2.Text := ComboBox2.Items[ComboBox2.IndexOf(JvID3v21.Texts.ContentType)];
|
Re: JvID3v21: alle Genres in einer ConboBox?
ergibt undefinierter Bezeichner IndexOf
|
Re: JvID3v21: alle Genres in einer ConboBox?
Mein Jüte ... ComboBox.Items ist vom Typ TStringlist und das hat IndexOf
Er hat doch gesagt, dass er das blind getippt hat :roll: Ein bisserl schauen deinerseits schad doch nix
Delphi-Quellcode:
Besser wäre aber wohl
ComboBox2.Text := ComboBox2.Items[ComboBox2.Items.IndexOf(JvID3v21.Texts.ContentType)];
Delphi-Quellcode:
ComboBox2.ItemIndex := ComboBox2.Items.IndexOf(JvID3v21.Texts.ContentType);
|
Re: JvID3v21: alle Genres in einer ConboBox?
Das funktioniert jetzt bestens. Danke. Habe schon ein Knoten in den Fingern.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz