6 replies to this topic

[egostar]

Hola

Esto se hace fácil en Delphi 2009+, mi problema es que utilizo Delphi 2007, ¿ alguien sabe como guardar un archivo de texto como UTF-8 ?

Gracias

Salud OS

[enecumene]

Pues.. ¿no es mejor utilizar la función Utf8Encode antes de guardar el archivo de texto?.

Saludos.

[egostar]

Pues.. ¿no es mejor utilizar la función Utf8Encode antes de guardar el archivo de texto?.

Saludos.

Eso mismo es lo que hago e imaginaba que el problema estaba resuelto , pero...... el archivo sigue estando con formato ANSI aunque el contenido si está codificado.

Salud OS

[enecumene]

Quizás esto te ayude.

Saludos

[egostar]

Quizás esto te ayude.

Saludos

Hola amigo, el problema es el mismo, eso sólo funciona en Delphi 2009 o mayor, sigo buscando

Salud OS

[seoane]

Prueba con esto:

delphi

procedure AnsiToUTF8(Str: AnsiString; Filename: String);
var
  F: File;
  Escritos: Integer;
begin
  Str:= UTF8Encode(Str);
  Str:= #$EF#$BB#$BF + Str;
  AssignFile(F, Filename);
  {$I-}
    Rewrite(F,Sizeof(AnsiChar));
  {$I+}
  if IOResult = 0 then
  begin
    BlockWrite(F,PAnsiChar(Str)^,Length(Str),Escritos);
    CloseFile(F);
  end;
end;

No lo he probado pero deberia funcionar.

[egostar]

¡Wow! Eres bárbaro amigo, que fácil haces ver las cosas, me sirvió perfecto muchas gracias.

Salud OS