Al cargar recurso de texto aparecen caracteres raros

[alquimista]

Muy buenas foreros...

Uso unos archivos de texto como recursos
en el archivo *.rc
allCF RCATA ".\Cfg\AllCteFun.txt"
allCte RCDATA ".\Cfg\Ctes.txt"
allFun RCDATA ".\Cfg\Funcs.txt"

Para cargar en una stringlist uso esta función:

Código Delphi [-]
procedure TForm7.LoadStringListFromResource(const ResName: string;SL : TStringList);
var
  RS: TResourceStream;
begin
  RS := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
  try
    SL.LoadFromStream(RS);
  finally
    RS.Free;
  end;
end;

Uso en el programa

Código Delphi [-]
 TkAllcteFun := TStringList.Create;
 LoadStringListFromResource('allCF',TkAllcteFun);

En un listbox asigno la stringlist
lst1.Items.Assign(TkAllctefun);
Probe también: lst1.Items:=TkAllctefun;


El archivo de recurso empieza por:
AreaTRI1#f0#p##desc:#AreaTRI1( )#help:
Lo separo para obtener solo lo que esta entre # (AreaTRI1)

y en el listbox se visualiza en el primer elemento
Í>¿AreaTRI1

Que hago mal ya que solo aparece eso en el primer elemento "Í>¿"

Es por usar RCDATA en el rc o????
Gracias de antemano.

[ecfisa]

Hola alquimista.

Seguramente los archivos de texto (AllCteFun.txt, Ctes.txt y Funcs.txt), fueron guardados en formato UTF-8. Guardándolos como ANSI tendrían que verse correctamente...

Saludos

[alquimista]

Gracias ecfisa..

El texto esta grabado con otro programa en delphi que usa stringlist.savetofile.
He convertido el texto a ANSI con un editor y parece que ya no sale.
Usaba en el stringlist el símbolo micro (u).
¿Es posible que al hacer el savetofile se cree en utf?

[ecfisa]

Hola alquimista.

Pareciera que no... Acabo de hacer la prueba guardando una variable TStrings con el contenido 'blabla µ blabla' a un archivo de texto, lo incluí en el archivo .res y luego se mostró sin caracteres extraños en un ListBox (pero esto usando Delphi 7).

Saludos

[alquimista]

Uso delphi 2007...
Pues no se por que pasa eso?

[ecfisa]

Hola alquimista.

Probá si con la función UTF8ToAnsi se muestra correcto:

Código Delphi [-]
...
 with TStringList.Create do
  try
    LoadFromFile('Tu_Archivo_UTF8.txt');
    ListBox1.Items.Text := UTF8ToAnsi(Text);
  finally
    Free;
  end;
...

Lamentablemente tengo que salir ahora y no puedo probarlo

Saludos.