Почему все умирает?

← →
Феликс (2002-10-08 21:11) [0]

Почему когда в программе используешь продолжительный цикл, то программа как бы засыпает... и просыпается только когда цикл выполнен? Как бы сделать так, чтобы цикл не вгонял в полу мертвое состояние программу и давал возможность работать с визуальными компонентами на форме и во время выполнения цикла?

← →
Jeer (2002-10-08 21:13) [1]

Спасет
Application.ProcessMessages;

← →
AL2002 (2002-10-08 21:13) [2]

Самое простое — Application.ProcessMessages;
А так — то Thread.

← →
Феликс (2002-10-08 21:21) [3]

Как мне стыдно!!! Ну а чего с Application.ProcessMessages; делать? Куда сувать?

← →
AL2002 (2002-10-08 21:25) [4]

>Как мне стыдно!!! Ну а чего с Application.ProcessMessages;
>делать? Куда сувать?
В циклы свои.

← →
Феликс (2002-10-08 21:28) [5]

Странно! Не помогает!

Ниже код:
begin
SL := TStringList.Create;
try
for i:=0 to Form1.ComboBox2.Items.Count - 2 do begin
Application.ProcessMessages;
SL.LoadFromFile("Base/"+Form1.ComboBox2.Items.Strings[i]+".txt");
Form1.RichEdit2.Lines.AddStrings(SL);
end;
finally
SL.Free;
end;
end;

← →
AL2002 (2002-10-08 21:33) [6]

Слушай, тебе надо просто в ричэдит всё тихо запихнуть?
Создай Thread и в него сунь этот код как процедуру.

← →
Jeer (2002-10-08 21:35) [7]

А вот так сразу нельзя ?
Form1.RichEdit2.Lines.LoadFromFile();

← →
AL2002 (2002-10-08 21:40) [8]

>Странно! Не помогает!
По-мойму, всё-таки помогает, только создаются здоровые паузы, когда строки в ричэдит затягиваются.

Юзай Thread. Правда, для меня они темное дело.

Почему все умирает? Найти похожие ветки