IncubusX
19.08.2010, 16:23
Добрый день, у меня небольшой вопрос по оптимизации программы, при загрузке файла программа подвисает, как можно это поправить? Application.ProcessMessages; уже пробывал.
Сам код:
if FindFirst(GetCurrentDir+'\input\*.txt', faAnyFile, fs)=0 then
repeat
Listbox1.Items.LoadFromFile(GetCurrentDir+'\input\ '+fs.Name);
until FindNext(fs)<>0;
FindClose(fs);
sl := TStringList.Create;
sl.Sorted := true;
sl.Duplicates := dupIgnore;
sl.Assign(ListBox1.Items);
ListBox1.Items.Assign(sl);
sl.Free;
Сам код:
if FindFirst(GetCurrentDir+'\input\*.txt', faAnyFile, fs)=0 then
repeat
Listbox1.Items.LoadFromFile(GetCurrentDir+'\input\ '+fs.Name);
until FindNext(fs)<>0;
FindClose(fs);
sl := TStringList.Create;
sl.Sorted := true;
sl.Duplicates := dupIgnore;
sl.Assign(ListBox1.Items);
ListBox1.Items.Assign(sl);
sl.Free;