Delphi Bilddateien herausfinden

Thema durchsuchen

Ansicht

Themen-Optionen

Bilddateien herausfinden

Ein Thema von Willie1 · begonnen am 5. Dez 2020 · letzter Beitrag vom 7. Dez 2020

Vorheriger Beitrag

Nächster Beitrag

Willie1

Registriert seit: 28. Mai 2008
623 Beiträge

Delphi 10.1 Berlin Starter

Bilddateien herausfinden

5. Dez 2020, 10:19

Hallo,

markieren

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.