VPF::мгновенная очистка ListView - Форум программистов

Antony41

Дата 21.2.2009, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: 1
Всего: 1

имеется 20 000 объектов как можно моментально очистить список?

Akella

Дата 21.2.2009, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

items.clear, наверное. Не забыв про BeginUpdate

Antony41

Дата 21.2.2009, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: 1
Всего: 1

Это понятно но Clear работает через цил.
Проходя по каждому итему, Тут BeginUpdate ни к чему

Как по другому...?

Christoph

Дата 21.2.2009, 18:36 (ссылка)

(голосов:2)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11

Код


var
  i:Integer;
begin
 for i := 0 to ComponentCount - 1 do
  begin
   if  Components[i] is TListView then
     begin
      with TListView(Components[i]) do
       begin
         Items.BeginUpdate;
        try
         Items.Clear;
          finally
         Items.EndUpdate;
       end;
     end;
  end;
end;

Как получить по другому выигрыш по времени, даже не знаю

Это сообщение отредактировал(а) Christoph - 21.2.2009, 18:38

--------------------

Rrader

Дата 21.2.2009, 20:12 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Оцените мощь virtual ListView smile

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, CommCtrl;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.OwnerData := True;
  { Девятьсот миллионов итемов :) }
  ListView1.Items.Count := 90000000;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  Item.Caption := 'Item' + IntToStr(Item.Index);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  { Удалить }
  ListView1.Items.Count := 0;
end;

end.

Это сообщение отредактировал(а) Rrader - 21.2.2009, 20:14

--------------------

Let's do this quickly!
Rest in peace, Vit!

Antony41

Дата 21.2.2009, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 27.12.2008

Репутация: 1
Всего: 1

Rrader то что надо=) спасибо всем smile

ps почему то я всегда думал что Items.Count свойство read only=)

Это сообщение отредактировал(а) Antony41 - 21.2.2009, 23:14

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »