FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Nueva función StringToHtml
Hola compañeros, me gustaría colaborar como siempre con una nueva funcion, para convertir cadenas String a HTML
Ya sabéis sois libres de Criticarla, codificarla destruirla, etc.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" Última edición por José Luis Garcí fecha: 22-07-2011 a las 17:08:58. |
#2
|
||||
|
||||
De antemano se agradece tu aporte y tu buena voluntad de colaborar con el público José.
Pero no me queda claro el propósito de la función que has compartido. Mucho menos entiendo el código que has publicado. No veo que haga reemplazos. Por ejemplo no entiendo que hace este código: if (Length(VarSLet)=1) and (VarSLet='á') then VarSLet:='á'; Me da la impresión que no hace ningún tipo de modificación sobre la cadena. Talvez me podrías aclarar un poco el código porque sinceramente no lo entiendo Saludos, Chris |
#3
|
||||
|
||||
Por otro lado, sin querer menospreciar tu trabajo José, existen la funciones HTMLEncode y HTMLDecode en la unidad HttpApp. La primera tiene el mismo propósito que la que nos has compartido. El propósito de la segunda es revertir el trabajo de la primera o hacer algo así como HTMLToString.
Saludos, Chris |
#4
|
||||
|
||||
Cris Tienes toda la razón el tema es que claro no contaba con el propio HTML, por eso vez la conversión directamente adjunto un pdf con el código, para que se vea bien.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#5
|
||||
|
||||
Cita:
Muchas gracias por la infomación, no las conocia, la verdad me podian aver ahorrado unas horas de código, pero bueno, lo tomo como lo que es un ejercicio y una nueva practica. Muchas Gracias.
__________________
Un saludo desde Canarias, "El abuelo Cebolleta" |
#6
|
||||
|
||||
Gracias, va a mi almacén de código útil
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Nueva Ayuda | tamar | Firebird e Interbase | 3 | 16-08-2006 22:39:03 |
Una nueva felicitación ! | gluglu | La Taberna | 29 | 09-08-2006 01:31:21 |
Nueva PC | vtdeleon | Noticias | 2 | 10-12-2005 01:44:41 |
Nueva en Delphi | Yams | Varios | 3 | 01-09-2004 01:04:33 |
Como puedo abrir nueva forma presionando la tecla de funcion F3 | luisreg | OOP | 6 | 17-09-2003 20:22:25 |
|