Thema: Delphi Bilddateien herausfinden

Einzelnen Beitrag anzeigen

Willie1

Registriert seit: 28. Mai 2008
552 Beiträge
 
Delphi 10.1 Berlin Starter
 
#1

Bilddateien herausfinden

  Alt 5. Dez 2020, 11:19
Hallo,
Delphi-Quellcode:
const
  GRAPHTYPES = '.JPG.JPEG.BMP.DIB.TIF.TIFF.PNG.GIF.ICO.EMF.HEIF.HEIC';
Find := GRAPHTYPES;
...
if Pos(UpperCase(ExtractFileExt(SR.Name)), Find) > 0 then begin//nur Bilder;
Ist das so richtig, um Bildformate aus einem Ordner heraus zu filtern?

Ich sehe schon, mit TDirectory.GetFiles lässt sich das vereinfachen!!!
Gruß Willie.
Gut hören kann ich schlecht, schlecht sehen kann ich gut - Ersteres stimmt nicht, das zweite schon.

Geändert von Willie1 ( 5. Dez 2020 um 12:17 Uhr) Grund: Nachtrag
  Mit Zitat antworten Zitat