Ver Mensaje Individual
  #1  
Antiguo 31-08-2012
Comandant Comandant is offline
Miembro
NULL
 
Registrado: ago 2012
Ubicación: Salta
Posts: 34
Reputación: 0
Comandant Va por buen camino
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;
Responder Con Cita