Dateien in ListView eintragen - Fortschritt anzeigen lassen

[bigg]

hi,

Delphi-Quellcode:

 // Wenn es keiner der o.a. Dateien ist
     if (LowerCase(Copy(wfd.cFileName, LastDelimiter('.', wfd.cFileName)+1, Length(wfd.cFileName)-LastDelimiter('.', wfd.cFileName))) <> 'mp3') and
        (LowerCase(Copy(wfd.cFileName, LastDelimiter('.', wfd.cFileName)+1, Length(wfd.cFileName)-LastDelimiter('.', wfd.cFileName))) <> 'wav') and
        (LowerCase(Copy(wfd.cFileName, LastDelimiter('.', wfd.cFileName)+1, Length(wfd.cFileName)-LastDelimiter('.', wfd.cFileName))) <> 'mpg') and
        (LowerCase(Copy(wfd.cFileName, LastDelimiter('.', wfd.cFileName)+1, Length(wfd.cFileName)-LastDelimiter('.', wfd.cFileName))) <> 'mpeg') and
        (LowerCase(Copy(wfd.cFileName, LastDelimiter('.', wfd.cFileName)+1, Length(wfd.cFileName)-LastDelimiter('.', wfd.cFileName))) <> 'wmv') and
        (LowerCase(Copy(wfd.cFileName, LastDelimiter('.', wfd.cFileName)+1, Length(wfd.cFileName)-LastDelimiter('.', wfd.cFileName))) <> 'asf') and
        (LowerCase(Copy(wfd.cFileName, LastDelimiter('.', wfd.cFileName)+1, Length(wfd.cFileName)-LastDelimiter('.', wfd.cFileName))) <> 'avi') then

Warum so kompliziert und unübersichtlich?
Du brauchst den Vergleichstring doch nur einmal erstellen.
Ist nur ein Beispiel, da ich nicht weiß wie das ganze bei dir genau aussieht.

Delphi-Quellcode:

Ext := Lowercase(ExtractFileExt(FileName)); // gibt die Dateierweiterung eines String zurück

if Ext <> '' then
if (Ext = '.mp3') or
   (Ext = '.wav') or
   (Ext = '.ogg') or
   (Ext = '.wma') then 
Audio_Files := True else 
Audio_Files := False;