Hi
Habe ein (für mich) ziemlich ungewöhnliches Problem und zwar möchte ich einfach einen String aus mehreren Teilstrings zusammensetzen. Kann eigentlich nicht so schwer sein, oder?
Dachte ich auch, bis ich folgenden Code schrieb:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
| ( var element:integer; t,t2,ar,al:string; )
for element := 0 to ListBox1.Items.Count do begin ReadID3(ListBox1.Items.Strings[element]);
Label2.Caption := ID3Tag.Album; Label6.Caption := ID3Tag.Artist; t := Pfad2.Text; ar := ID3Tag.Artist; al := ID3Tag.Album; t2 := t + '\' +ar+ '\' +al+ '\' +ExtractFileName(ListBox1.Items.Strings[element]); sleep(2000); edit1.Text := t2;
count.Caption := inttostr(element); Application.ProcessMessages; end; |
Das Problem: Im Editfeld steht (für das Beispiel) jetzt nur 'C:\musik\Subway'... alles danach fehlt.
Falls es von Interesse sein sollte, das Auslesen der ID3Tags geschieht mithilfe des Codes der auf dsdt unter Tipps & Tricks zu finden ist.
Ich hoffe jemand von euch kann mir da ganz schnell helfen. Bin mir fast sicher es ist nur ne Kleinigkeit die ich nicht beachtet habe ...
MFG