Eine Möglichkeit wäre noch, die Funktion
GraphicExtension aus der
Unit Graphics zu benutzen:
Delphi-Quellcode:
function GetPictureExtension (aImage: TPicture): string;
begin
with aImage do
if Assigned(Graphic) then
Result := GraphicExtension(TGraphicClass(Graphic.ClassType))
else
Result := '(empty)';
end;
Das von Khabarakh angesprochene Problem (Unterscheidung '.jpg' und '.jpeg') läßt sich damit allerdings nicht lösen.
Gruß Hawkeye