Einzelnen Beitrag anzeigen

Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#1

Lauftext arbeitet nicht korrekt

  Alt 24. Jul 2006, 12:41
Hi,

ich habe eine Methode einen Lauftext zu erstellen hier in der DP gefunden. Ich suche über einen Typen den Titel und den Artisten eines Liedes heraus. Ich möchte dann beides in folgender Form in einen Lauftext unterbringen: Artist - Titel.
Bei folgendem Code steht aber nur der Artist da, aber nicht der Titel. Warum ?
Delphi-Quellcode:
lLauftext.Caption := fFiles[lbList.ItemIndex].Artist + ' - ' + fFiles[lbList.ItemIndex].Titel;
// Artist und Titel sind auf jeden Fall vorhanden

procedure TfrmMain.tLauftextTimer(Sender: TObject);
var
  hilf, hilfbuchstabe : String;
begin
  if BASS_ChannelIsActive(chan) = BASS_ACTIVE_PLAYING then
  begin
    hilf := lLauftext.Caption;
    hilfbuchstabe := hilf[1];
    delete(hilf, 1, 1);
    hilf := hilf + hilfbuchstabe;
    lLauftext.Caption := hilf;
    Application.ProcessMessages;
  end;
end;
  Mit Zitat antworten Zitat