alquimista
06-08-2013, 17:59:15
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:
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
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.
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:
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
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.