AniIndicator1.enabled := true; AniIndicator1.Visible := true; как с этим работать?

Question

[Romanson]

AniIndicator1.enabled := true;
AniIndicator1.Visible := true; - Почему на андроид сначала делается цикл потом только идет отображение AniIndicator1? т.е. индикатора загрузки не видно вообще.

Вот пример кода

procedure TForm1.ListBox1ItemClick(const Sender: TCustomListBox;
  const Item: TListBoxItem);
var
  s1, s2, c, v, s, d: string;
  i: integer;
begin
  AniIndicator1.enabled := true;
  AniIndicator1.Visible := true;

  ListBox2.Clear;
  s2 := ListBox1.Items[ListBox1.ItemIndex];
  if length(s2) = 1 then
    s1 := s2
  else
  begin
    s1 := copy(s2, 1, 2);

    /// ----------------------
    for i := 0 to Memo1.Lines.Count - 1 do
    begin
      c := Memo1.Lines.Strings[i];
      if length(c) = 1 then
        v := c
      else
      begin
        v := copy(c, 1, 2);
        if v = s1 then
          ListBox2.Items.Add(Memo1.Lines.Strings[i]);

      end;
              AniIndicator1.enabled := false;
        AniIndicator1.Visible := false;
    end;

  end;

end;

end.

Answer 1

[Денис Загаевский]

Смею предположить, что с MainThread'ом в делфи ничего кардинального сделать не могли. Когда вы делаете его видимым, в очередь ставится сообщение о том, что его надо сделать видимым. Доходит до этого очередь только на следующем шаге Looper'a. Шаг не произойдёт, пока вы не сделали всё, что хотели в текущем шаге. Ну а к тому времени, как дело дошло до этого, вы уже скрываете.

Короче, мораль сей басни - ничего долгого не делайте в MainThread. Включили прогресс - запустили асинхронную задачу - по её окончанию скрыли прогресс.

Comments

[Андрей]

Либо отдайте на ProcessMessages()

[Romanson]

Это все здорово, как исходя из моего кода можно вывести аналогично асинхронную задачу? т.е. это паралельный поток какой то? только не таймер.

[Денис Загаевский]

Romanson: как это будет в делфи, я не знаю, уже лет 8 как не писал на нём. В андроиде есть AsyncTask'и, например. Вам надо учесть, что не из главного потока нельзя обращаться к UI.
Да и вообще непонятно, зачем вам в такой задаче индикатор прогресса, неужели так долго выполняется?

[Romanson]

Андрей: отдавая AniIndicator1.Visible := true; на ProcessMessages() тормозит форма при событии onitemclick... все как бы появляется но индикатор не крутится

[Romanson]

Денис Загаевский: как бы то не странно звучало Но да. дело в том что в memo хранится некий список, который по группам строк нумеруется от 0 до 30. допусти строк начинающихся на 0 - 40 штук, на 1 - 50 и т.д. в коде что предоставил есть цикл поиска имени нажатой Item в Listbox который сверяется с номером порядковым этой же Item и ищет соответсвующее значение в базе memo для вывода в Listbox2. происходит взависимости от утсройства у кого быстро у кого нет. тем не менее индикатор нужен

[Денис Загаевский]

Romanson: есть такое понятие как модель, и есть такое понятие как UI. Мемо и лист в делфи - это UI. Вам надо отделить модель и манипулировать ею. Грубо говоря, надо считать, что мемо не хранит текст, а отображает его.

[Romanson]

Денис Загаевский: если загружать базу вместо мемо в ту же переменную string и с нее вести манипуляции для отображения далее в лист так будет правильнее и быстрее я в ту сторону думаю? или так не получится например

var
s:string;
brgin
s:=memo1.loadfromfile('Бла бла');
end и с 's' уже манипулировать

[Денис Загаевский]

Romanson: типа того. Сделаете так, чтобы все эти ваши расчёты не трогали UI - можно будет легко вытащить их в отдельный поток.

[Romanson]

Денис Загаевский: спасибо за направление, я как ел дном ложки вверх при написании кода так и остаются блин ошибки в логике вещей)

[Romanson]

Денис Загаевский: можно еще вопрос, как в переменную загрузить текст как описал выше или как по другому реализовать?

[Денис Загаевский]

Romanson: не знаю, говорил же - я делфи не трогал лет 8. И когда бросал, задавал вопросы типа как вы, откуда мне это помнить. Но выглядит чёт не очень, уверен, есть способы получше.

[Romanson]

Денис Загаевский: я нашел ответ) var s: TStringList;
begin
s:=TStringList.Create;

Answer 2

[xmoonlight]

Нужно в конце каждого цикла перерисовывать объект.
.Repaint или .Redraw или .Update ну в общем что-то из этого....