convertidor rtf2html

[[xEsk]]

Te he hecho esta función para los caracteres "raros" en HTML, creo q no me he dejado ninguno estandard

Código Delphi [-]
// una forma de detectar caracteres estandard en HTML
function CharToHTML(AChar: Char): String;
begin
  if AChar in [' ', '!', '#'..'%', #39..';', '=', '?'..'~'] then // es un caracter estandard
    Result:=AChar
  else // es un caracter "raro"
   Result:='&#' + IntToStr(Word(AChar)) + ';';
end;

Creo q la cosa esta en detectar todos los caracteres estandard (ya que son menos q los "raros") asi pues, si es estandard lo dejamos igual, en caso contrario lo codificamos usando &#valor;

Saludos.

[mapi966]

Podeis indicarme el procedimiento createsize.

Es que delphi no me compila, me dice que me falta. Pensaba que era una propiedad, pero creo que necesito saber al menos que hace esto.

Gracias.

[[xEsk]]

Empezado por mapi966

Podeis indicarme el procedimiento createsize.

Es que delphi no me compila, me dice que me falta. Pensaba que era una propiedad, pero creo que necesito saber al menos que hace esto.

Gracias.

Por lo que deduzco del código, convierte un font size a un html size, pero a mi forma de entender, no lo haria como hacen en el código (que no lo veo, pero lo intuyo xD), ya que yo usaria tamaños relativos o simplemente usaria el font.size que ya tiene el texto a convertir...

Saludos.