TResourceStream u string

[ borovac @ 22.10.2005. 15:57 ] @

Ovako, ako želim da neki fajl iz TResourceStream-a loadujem u string ili listu stringova ja to radim ovako:
extraktujem taj fajl

Code:

procedure Extract_File(File_Name, Res_Name, Res_Type:string);
var
    rStream: TResourceStream;
    fStream: TFileStream;
begin
  rStream := TResourceStream.Create(hInstance, Res_Name, PChar(Res_Type));
  try
   fStream := TFileStream.Create(File_Name, fmCreate);
  try
   fStream.CopyFrom(rStream, 0);
  finally
   fStream.Free;
  end;
  finally
   rStream.Free;
  end;
end;

zatim idem liniju po liniju i dodajem string u listu.
Ako imam više fajlova onda mi se aplikacije diže sporo (ovo loadovanje u liste radim na OnCreate događaju)
Moj jaran u VisualBasicu loaduje fajlove iz resourca direktno u string a onda taj string stavlja u listu.
I to se sve odvija brzo

Da li e moguće u Delphiju to odraditi da radi brzo??

[ Srki_82 @ 22.10.2005. 23:23 ] @

Pa, zasto ne iskoristis mogucnos TStrings klasa da ucitavaju podatke direktno iz streama? Uradis nesto ovako:

Code:
procedure Extract_File(File_Name, Res_Name, Res_Type:string; S: TStrings);
var
    rStream: TResourceStream;
begin
  rStream := TResourceStream.Create(hInstance, Res_Name, PChar(Res_Type));
  try
    S.LoadFromStream(rStream);
  finally
   rStream.Free;
  end;
end;

[ borovac @ 23.10.2005. 12:27 ] @

Ide sporo, probo sam! (thanx anyway)