Programación General > Delphi

 Problema Con El Icono

(1/1)

Perrero:
Weno mi duda es la siguiente, hice un pequeño editor de textos, el problema es que cuando quiero gurdar lo que escribo como un *.txt, el icono que aparece no es el de un txt, sino mas bien el de un *.dat, pero si puedo abrir los archivos txt, ¿por que no aparece el icono correcto si lo guardo con la notacion correcta?

P.D: Obviamente el *.txt lo puse en el filtro, o es que acaso se le agrega algo mas ya q en el filtro solo puse el nombre y *.txt.

Masiosare:
Hola.

      ¿Ya viste con que extensión están guardados los archivos con el símbolo de sistema (modo MS-DOS mejor dicho)?

      Es probable que algo (algún programa o el cuadro de diálogo abrir con..., lo más seguro) cambio el registro de windows. Pero también me ha sucedido que cuando la computadora tiene problemas (memoria ó disco duro saturado) el explorador de windows muestra íconos que no son, o sea, por ejemplo, que a los archivos  *.pdf les pone el ícono de archivo de imágen, y así. Inclusive me cambiaba el ícono de Mi PC, no sé exactamente por que. :hitcomp: (je je, me encanta este dibujo)

Enko:
2 cosas:

1) Hacete un archivo de texto en el block de notas y fijate si tiene su icono y te lo abre
Si lo anterior es normal..........
2) El archivo que crea el programa tuyo no añade bien o no la añade la extencion txt.

Perrero:
mmmmmmmmm, bueno si le puse la extension *.txt, bueno o quizas lo puse mal, pero asi es como lo puse, y en el bloc de notas cuando guardo si sale su icono respectivo.
O quizas e denotado mal la extension? (le puse *.txt)

Enko:

--- Cita de: "Perrero" --- mmmmmmmmm, bueno si le puse la extension *.txt, bueno o quizas lo puse mal, pero asi es como lo puse, y en el bloc de notas cuando guardo si sale su icono respectivo.
O quizas e denotado mal la extension? (le puse *.txt)
--- Fin de la cita ---
Es que los filtros son filtros, no agregan ninguna extencion.
Tendrás que hacerlo vos:

--- Citar ---if ExtractFileExt(SaveDialog1.FileName) = '' then
  Memo1.Lines.SaveToFile(SaveDialog1.FilName + '.txt')
else
     Memo1.Lines.SaveToFile(SaveDialog1.FilName);

--- Fin de la cita ---

Navegación

[0] Índice de Mensajes