argument out of range Listview(Баг ?)

[Просто Проги]

Пришла беда от куда не ждали, поигравшись с listbox понял что для больших данных он как то лагает решил перейти на listview и о чудо быстродействие и всё такое, но вот когда я хочу очистить его с помощью

ListView1.Items.Clear;

то получаю данную ошибку,как то можно избежать данной проблемы или нужно переходить на более новую версию сейчас на 10 seatle работаю.

 

 

[Равиль Зарипов (ZuBy)]

1 час назад, Просто Проги сказал:

Пришла беда от куда не ждали, поигравшись с listbox понял что для больших данных он как то лагает решил перейти на listview и о чудо быстродействие и всё такое, но вот когда я хочу очистить его с помощью

ListView1.Items.Clear;

то получаю данную ошибку,как то можно избежать данной проблемы или нужно переходить на более новую версию сейчас на 10 seatle работаю.

такое давно есть, поэтому в modernLV есть правильный способ удаления

procedure TAppearanceListView.ItemsClearTrue; // ZuBy
begin
  while Items.Count > 0 do
    Items.Delete(0);
end;

 

[Просто Проги]

можно ли внедрить этот pas в xe10 ?  или нужно обновляться ?

[Равиль Зарипов (ZuBy)]

procedure ClearLV(const aLV: TListView);
begin
 while aLV.Items.Count > 0 do
   aLV.Items.Delete(0);
end;

вызывать так

ClearLV(ListView1);

 

[Просто Проги]

делал наподобие, но av возникает по прежнему

 

[Равиль Зарипов (ZuBy)]

Только что, Просто Проги сказал:

делал наподобие, но av возникает по прежнему

в каком событии вызывается код?

[Просто Проги]

перед началом потока т.е как должно быть я загружаю список заполняю лист после если пользователь нажал кнопку повторно лист очищается и заполняется новыми значениями .

[Равиль Зарипов (ZuBy)]

показывайте код, а лучше демо проект с этим участком кода

[Просто Проги]

поток использую что бы форма не висела пока лист загружает значения их может быть как 10 так и 1000 как то так

[Просто Проги]

ок сейчас накидаю демку проекта )

[Просто Проги]

вот тестовое демо может я не правильно потоки использую?

demo.rar

[kami]

57 минут назад, Просто Проги сказал:

может я не правильно потоки использую?

точно не правильно.

1. Создавать TNetHTTPClient нужно в execute потока, а не использовать лежащий на форме.

2. Работать с визуальными объектами нельзя из execute, об этом 100500 раз предупреждали.

Посему, правильно с технической точки зрения (упустим пока архитектуру) будет:

1. в execute создать сетевой компонент и выполнить запрос.

2. Распарсить запрос

3. Передать результаты в основной поток и уже в нем работать с ListView.

Полезно для правильного написания вынести код потока в отдельный модуль. Который НИЧЕГО не должен знать о модуле формы. Поток должен иметь событие, через которое он передает результаты своей работы куда надо. Само собой - вызывать это событие нужно в основном потоке, используя средства синхронизации. Форма при создании потока назначает ему обработчик события и выполняет в нем необходимые действия.

Изменено 23 октября, 2016 пользователем kami

[Andrey Efimov]

Плюсанул kami. От себя добавлю (чтоб был ) пример с анонимным потоком

procedure TFormMain.LoadList;
begin
  try
    // Что-то делаем...

    TThread.Synchronize(nil,
      procedure
      begin
        // Снихронизируемся с основным потоком, меняем состояние компонентов на форме и т.д.
      end);

    // Опять что-то делаем...
  finally
    // Выполняем обязательные операции
  end;
end;



procedure TFormMain.ButtonClick(Sender: TObject);
begin
  // ListView1.Items.Clear;
  // Cоздаём анонимный поток
  TThread.CreateAnonymousThread(LoadList).Start;
end;

 

Ещё в студии есть семплы по работе с потоками.

• C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\RTL\HttpAsyncDownload
• C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\RTL\HttpDownload
• и ещё где-то там лежат...

[Просто Проги]

ок буду изучать спасибо за пример)