Добрый день, у меня небольшой вопрос по оптимизации программы, при загрузке файла программа подвисает, как можно это поправить? 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;
________________ Продаю приват читы для AION Absolute, desteny 3.5, Legend, Cataclysm, Ru, EU, NA Продаю многооконку на R2 Пишу читы на заказ под любые игры. Предложения в ЛС. Все мои читы/программы/статьи тут:http://zhyk.ru/forum/showpost.php?p=38501&postcount=21