Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
7. Dez 2020
Danke so geht es.
Ich habe den Nachtrag gelesen. Da ich ohnehin eine StringList mit Objekten benutze, um die Bildernamen und andere Bildinfos zu speichern, stellt sich die Frage, ob ich dann nicht besser bei FindFirst / FindNext bleibe. Erst alle einzeln einlese und sofort die Bilder herausfiltere, als erst ein StringDynArray anzulegen.
Willie.
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
5. Dez 2020
Danke Himitsu für deine Hinweise, ContainsText kannte ich nicht. Jetzt weiß ich, warum mein Programm "einmal im Jahr" bei der Suche nach Bildern crashte.
Himitsu du hattest mich auf die vielen neuen Möglichkeiten von TDrive, TDirectory usw. aufmerksam gemacht. Jetzt will ich sie nutzen. Es gibt TDirectory.GetFiles mit überladenen Methoden. Kann ich hier nicht schon nach Bildern filtern? Ich habe...
Forum: Win32/Win64 API (native code)
Delphi
by Willie1,
5. Dez 2020
Hallo,
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.