Selektierten String aus Listbox an Label übergeben?

[mlspider]

Hallo,

wie könnte eine Übergabe eines selektierten String aus einer Listbox an ein Label aussehen?

Delphi-Quellcode:

if ListBox1.ItemIndex <> -1 then
  begin
    Label13.Caption:=ListBox1.Items.Strings[Listbox1.ItemIndex];
 end;

Funktioniert zwar, aber der erste Eintrag wird ignoriert.

Danke

[mkinzler]

Label.Caption := listBox.Items[ ListBox.ItemIndex]; [Edit: wie meinst du das, "ignoriert"?]

[mlspider]

Damit meinte ich die oberste Zeile in der Listbox. Klicke ich diese an, wird der String nicht an das Label übergeben.

Ich benötige diesen Quatsch, um aus dem "Label-String" einen Dateinamen zu bilden.

[mkinzler]

Laß dir mal den ItemIndex anzeigen

[mlspider]

Beginnend mit 0.

OK, habe es sehr unsauber geregelt:

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
 Label14.Caption:='Track '+InttoSTR(Listbox1.ItemIndex + 1);
end;

Hat jemand einen besseren Vorschlag?

[mkinzler]

Das stimmt ja eigentlich. Wir der Event für die Zeile ausgelöst? Was steht an Index 0?

[mlspider]

Da es sich um eine Titelliste von Audio-CD's handelt, und ich nicht den CD-Text vorher auslese, steht lediglich bei 0 "Track 01".