geöffneten Grafiktyp anzeigen lassen ?

[thomas2009]

Hi

ich verwende diesen Code um den typ zu zeigen

Delphi-Quellcode:

if OpenDialog1.Execute then
Datei := OpenDialog1.FileName;
type := copy(Datei,length(Datei)-3,length(Datei));
ShowMessage(type);

Gibt es eine andere Lösung z.B. den Dateinamen nach dem Punkt zu kopieren
oder den Filter direkt auszulesen, ...

Mein Code ist keine gute Lösung, da der Dateityp nicht immer aus 3 Buchstaben besteht

_

[Mackhack]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ( OpenDialog1.Execute ) then
    ShowMessage(ExtractFileExt(OpenDialog1.FileName));
end;