Herausfinden ob eine JPG oder eine BMP-Datei in TImage liegt

[Hawkeye219]

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