Ich habe es so gemacht:
Delphi-Quellcode:
//Lauftext
PlayFile(playindex);
with fFiles[playindex] do
begin
s := Artist + ' - ' + Titel + ' [' + trim(DurationMinSec(IntToStr(GetSongLength))) + ']';
lLauftext.Text := s;
lLauftext.Active := True;
lLauftext.Transparent := True;
Application.Title := s;
Memo1.Lines.Add(s);
end;
Das Ergebniss:
PaulE
Der String wird terminiert. Das mit dem Copy wird auch mit deinem Prinzip sehr schwer, da sich die Zeichenfolge in der einen Datei z.B. 5 Zeichen lang ist und in der Anderen z.B. 7. Wir sollten dem Fehler auf den Grund gehen, anders geht es nicht, selbst wenn ist es sehr schlecht und fehleranfällig.