Delphi-Quellcode:
...
//ID3Tags, speichern ... einfügen
if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
MP3.Execute(ADirectory+SR.Name);
if MP3.ID3v2TLEN<>'' then
Value := Trunc(strtoint(mp3.ID3v2TLEN) / 1000);
else
Value := Trunc(mp3.spielzeit);
M := (value mod 3600) div 60;
S := (value mod 3600) mod 60;
mp3liste.Artist:='+ '+MP3.ID3v2TPE1;
mp3liste.Album:=MP3.ID3v2TALB;
mp3liste.Titel:=MP3.ID3v2TIT2;
mp3liste.Genre:=mp3.ID3v2TCON;
mp3liste.Zeit:=Format('%2.2d:%2.2d', [M, S]);
mp3liste.TrackNr:=MP3.ID3v2TRCK;
mp3liste.Dateiname:=SR.Name;
mp3liste.Pfad:=ADirectory;
write(f3,mp3liste);
...
end;
diesen teil solltest du später erledigen,
d.h. estmal alle dateien suchen, die du brauchst, diese in eine stringlist schreiben und dann später verarbeiten, gerade das write wird viel zeit in anspruch nehmen