Código Delphi [-] if ExtractFileExt(MiArchivo) = '' Then MiAchivo := ChangeFileExt(MiArchivo, '.ext'); {Siendo .ext mi extensión por defecto}
if ExtractFileExt(MiArchivo) = '' Then MiAchivo := ChangeFileExt(MiArchivo, '.ext'); {Siendo .ext mi extensión por defecto}