Dateiendung unbekannt --> herrausfinden

[shmia]

nichts leichter als das, komm mit:

Delphi-Quellcode:

pfad := 'c:\pics\Image1';
pfad := ChangeFileExt(pfad, '.bmp');
if not FileExists(pfad) then
   pfad := ChangeFileExt(pfad, '.jpg');
if FileExists(pfad) then
   Image1.LoadFromFile(pfad);