Leer fichero con caracteres cirilicos en Delphi 6
 

Buenos dias.
He buscado otros hilos parecidos en el foro y no encuentro ninguno que me resuelva el tema. Se que a partir de la version de delphi 2009, al cargar en un memo un fichero puedes indicarle la codificación, pero en Delphi 6 ese parámetro no existe.

Código Delphi [-]
memo1.lines.loadfromfile('cirilico.txt');

¿Hay algún modo de que se pueda cargar un fichero que contiene algunos carácteres cirílicos en un campo memo EN DELPHI 6 ??

Gracias de antemano.

Has probado a instalar los últimos jedi en tu delphi 6?
http://jvcl.delphi-jedi.org/

Espero no confundirte mas porque hablo de oidas pero creo que en la JclUnicode tienen funciones del tipo UTF8ToWideString y similares que quizas puedan ayudarte. Lo dejo mas como propuesta por donde empezar a mirar que como solución, pero de veras creo que podría servirte.

Primero, muchas gracias. Despues de pasar unos cuantos dias buscando y rebuscando, alguien por fin me ha dicho algo que puede servirme.
No conocía las Jedi (hace tiempo que me desenganché del Delphi y por eso me quedé en Delphi 6).
Lo siguiente será encontrar la librería adecuada y averiguar cómo se instala... pero eso ya es harina de otro costal.

Reportaré el resultado en cuánto tenga algo para ayudar a otros como yo.

De nuevo gracias mil.

No sé si has solucionado tú problema, el caso es que me ha picado la curiosidad y he probado a ver si lo conseguía en delphi 5. He utilizado las jedi y los componentes tnt:
http://www.yunqa.de/delphi/doku.php/...controls/index

Consiguiendo cargar un fichero con caracteres rusos (utf8) en una listbox sin problema. Primero los cargo en utf8, despues convierto cada item con utf8towidestring, y los tnt se encargan de dibujar los caracteres correctos en lugar de ???????? que muestran los controles standard de delphi 5.

Código Delphi [-]
procedure TForm1.btnCargaFicheroClick(Sender: TObject);
var
 i:integer;
begin
 TntListBox.items.loadfromfile('c:\rus.txt');
 for i:= 0 to TntListBox.items.count-1 do
  begin
    TntListBox.items[i] := utf8towidestring(TntListBox.Items[i]);
  end;
end;

Espero que sirva de ayuda.

No los conocía ^\||/

Mil gracias
 

Madre mia! Estas hecho un máquina. Yo tampoco tenía ni idea de las TNT...
Muchas gracias. Da gusto ver que hay gente tan profesional.
Un saludo.