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;
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??