Cómo averiguar la extensión del archivo elegido en un "TOpenFileDialog"
 

Hola a todos tengo una pregunta simple pero que no lo he podido resolver y es como saber la extension del archivo de imagen que eligio un usuario desde un topendialog? ya que quiero asiganarlas a unas variables y para que se me entienda mejor dejo algo de codigo.

Código Delphi [-]
var
Jpg: TJPEGImage;
bmp: TBitMap;
begin

  with TOpenDialog.Create(nil) do
  try
     Filter:= 'Archivos de imagen(*.bmp;*.ico;*.jpg)|*.bmp;*.ico;*.jpg';
     if Execute then
     begin
       Fondo:= TPicture.Create;
       try
        if Filename.extension? = jpg then
        Jpg:= TJPEGImage.Create
        else
        bmp:= TBitMap.Create;

Como verán necesito saber la extensión o el tipo de archivo para aplicarle algunas funciones según sea la extensión para luego de todo esto darme un resultado(ya aplicada la funcion) y asignarla a fondo que es un tpicture; Desde ya Gracias

Hola,

Prueba con la función "ExtractFileExt" de la unidad "SysUtils".

ExtractFileExt

* Se me adelantó dec.

Gg me las tuve que ingeniar pero ya lo cambio por las dudas dejo publicado mi code para que lo ven nada mas.

Código Delphi [-]
var
imagen: TPicture;
Jpg: TJPEGImage;
bmp: TBitMap;
begin

  with TOpenDialog.Create(nil) do
  try
     Filter:= 'Archivos de imagen(*.bmp;*.ico;*.jpg)|*.bmp;*.ico;*.jpg';
     if Execute then
     begin
       Fondo:= TPicture.Create;
       try
        imagen:= TPicture.Create;
        imagen.LoadFromFile(FileName);
        if imagen.graphic is tjpegImage then
        Jpg:= TJPEGImage.Create
        else
        if imagen.graphic is tbitmap then
        bmp:= TBitMap.Create;

Obviamente gracias manes y saludos.

Vale, pero no habías preguntado cómo saber el tipo, sino la extensión.
Tu imagen puede ser un .jpg y sin embargo alguien lo ha podido renombrar como .txt (aunque sea para fastidiar).