Memo + LoadFromFile = no coje acentos, ñ, etc

[Casimiro Noteví]

Si el texto está creado con iso8859, tendrás que abrirlo como tal, ya que si lo abres con utf8 ocurre lo que está pasando. Si quieres convertirlo a utf8 no sé si existe alguna utiildad, supongo que tendrás que reemplazar los caracteres acentuados y eñes en el texto que importas.

[Firewind]

Hola.

Ya solucione el problema, lo que tuve que hacer es convertir a UTF8 las lineas leidas directamente del fichero y luego añadirlas al memo.

Con esto, ya me insertaba correctamente el contenido en la base de datos.

Aqui dejo la funcion por si le sirve a aguien.

function CargaPreguntas(const Fichero: TFileName; Memo: TMemo) : string;
 var
   f: text;
   linea_actual: string;
begin
   assign( f, Fichero );
   reset( f );
   while not eof( f ) do
     begin
     readln( f, linea_actual );
     Memo.Lines.Add( UTF8Encode(linea_actual) );
     end;
   close( f );
end;

Un saludo.

[Ñuño Martínez]

Empezado por Casimiro Notevi

(...) Si quieres convertirlo a utf8 no sé si existe alguna utiildad, supongo que tendrás que reemplazar los caracteres acentuados y eñes en el texto que importas.

Existe el programa iconv de GNU (parte de la biblioteca libiconv). Viene con Linux y seguro que hay una versión para Windows. En el peor de los casos se puede bajar el código fuente y compilarlo. Todo programador debería tener este programa disponible.

[Casimiro Noteví]

Resulta que lo tengo instalado y no lo sabía:

ICONV(1) Debian GNU/Linux ICONV(1)

NAME
iconv - Convert encoding of given files from one encoding to another

SYNOPSIS
iconv -f encoding [-t encoding] [inputfile]...

DESCRIPTION
The iconv program converts the encoding of characters in inputfile, or
from the standard input if no filename is specified, from one coded
character set to another. The result is written to standard output
unless otherwise specified by the --output option.