Отображение Splash-формы!

← →
Alex Shulg © (2003-09-26 18:09) [0]

Добрый день всем,

наталкнулся на странную вещь. Есть список ListBox, делаю анализ строк в нем.
Дабы повысить информативность программы, сделал форму с прогрессом, которая
отображается во время обработки строк. В процессе обработки некоторые строки
удаляются.

// Delphi 5

FormSplash.Show;
FormSplash.Update;
FormSplash.Gauge1.MaxValue:=ListBox1.Items.Count;

i:=0;
With ListBox1.Items do
While i<Count do
begin
FormSplash.Gauge1.Progress:=FormSplash.Gauge1.MaxValue-Count+i;
FormSplash.Update;
if ... then Delete(i)
else i:=i+1;
end;

FormSplash.Close;

Так вот проблема в том, что после закрытия сплешь-формы, количество строк
возвращается к исходному, как-будто ничего и не удалилось (в цикле строки
удаляются, пошаговой отладкой проверил). Заремирую все строки кода,
относящиеся к сплешь, все работает!
В чем может быть прикол?

← →
ZEE © (2003-09-26 18:18) [1]

так что не так?
With ListBox1.Items do ... if ... then Delete(i)
это как раз и удаляет строки ListBox-а...
убери приведенный код - не будут удалятся.
Сформулируй яснее надо удалять или не надо.

← →
ZEE © (2003-09-26 18:19) [2]

Кстати, а при чем тут "Splash-формы" ?

Да код то правильный, выяснил, что после закрытия Сплеш-формы, вызывается OnActivate главной формы, а в нем я загружал список. Перенес в OnCreate и все в порядке. Всем спасибо.

Отображение Splash-формы! Найти похожие ветки