Блин не могу разобраться, почему тормозит программа при цикле...?

Question

[Romanson]

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

  basa: TStringList;
begin
  AniIndicator1.Enabled := true;
  AniIndicator1.Visible := true;
  Application.ProcessMessages;
  Sleep(100);
  basa := TStringList.Create;
  basa.Text := Memo1.Lines.Text;

  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 basa.Count - 1 do
    begin

      c := basa.Strings[i];
      if length(c) = 1 then
        v := c

      else
      begin

        v := copy(c, 1, 2);

        if v = s1 then
          ListBox2.Items.Add(basa.Strings[i]);

      end;
         Application.ProcessMessages;
  Sleep(100);
    end;

Application.ProcessMessages;
  Sleep(100);

- это нужно для отображения aniindicator'а в приложении и с добавлением pplication.ProcessMessages; тормозит еще хуже чем без него, потому как и без него обработка базы даже в 60 строк уже занимает время. на PC все летает, на телефоне тормозит.

Может как то все это можно иным способом реализовать? подскажите

Comments

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

За Sleep надо вообще руки отрывать. Я вам уже давал совет, как всё это сделать. Выделить для данных модель и работать с нею.

[Romanson]

Денис Загаевский: да это я в нете говнокод подцепил, думал может так надо. А на счет "Выделить для данных модель" - направьте в какую сторону рыть, или на примере как реализовать, я что то нуб капец с этим вопросом мозги кипят.

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

Romanson: goo.gl/7UlKlF

[Romanson]

Денис Загаевский: обширно. если использовать базу данных в делфи это выход?

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

Romanson: Модель данных — это абстрактное, самодостаточное, логическое определение объектов, операторов и прочих элементов, в совокупности составляющих абстрактную машину доступа к данным, с которой взаимодействует пользователь. Эти объекты позволяют моделировать структуру данных, а операторы — поведение данных.
Нет, я, всё понимаю, тяжёлое детство, заставляют кидать баттоны на форму в делфи... Но сейчас же не 2006 год, а 2016. Ищите инфу, блин.

[Romanson]

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

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

Romanson: ну, в принципе, да, достаточно взрослый.
Тут есть две категории людей - кому разжуй и в рот положи, и кому даёшь направление и он ищет, обучается.
4 практически идентичных вопроса с говнокодом и без ответов - вас это ни на какие мысли не наводит? Меня - да.

Answer 1

[Андрей]

Попробуйте ListBox2.Items.BeginUpdate() перед циклом и ListBox2.Items.EndUpdate() после его окончания.

И уберите sleep(100) - в Вашем случае они не нужны.