Ver Mensaje Individual
  #2  
Antiguo 28-04-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
A ver si te gusta:
Código Delphi [-]
if ExtractFileExt(MiArchivo) = '' Then
  MiAchivo := ChangeFileExt(MiArchivo, '.ext'); {Siendo .ext mi extensión por defecto}

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita