Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi In Ordner nach Datei suchen, deren Endung unbekannt ist

**mischerr**

Ok, aber dann kannste dir auch den repeat / until sparen! Sprich...

Code:

			if (FindFirst(verz+mask+'.*', faAnyFile, search) = 0) then

   result:= AnsiLowerCase(ExtractFileExt(verz + search.Name));

Grüsse!

mischerr Registriert seit: 6. Feb 2004 Ort: Konz 238 Beiträge Delphi 12 Athens	#7 Re: In Ordner nach Datei suchen, deren Endung unbekannt ist 25. Jul 2004, 19:12 Ok, aber dann kannste dir auch den repeat / until sparen! Sprich... markieren Code: if (FindFirst(verz+mask+'.*', faAnyFile, search) = 0) then result:= AnsiLowerCase(ExtractFileExt(verz + search.Name)); Grüsse!
	Zitat