VPF::Проблемы с ListView. - Форум программистов

Elephant

Дата 15.1.2005, 19:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Значит у меня имеется ListView у которого ViewStyle:=vsRepert и три столбца. Могу ли я заполнить строку которую мне надо т.е. не по порядку. Короче мне надо в ListView заполнять всего 10 строк-записей. Вот когда 10 заполню нужно первую убить и туда записать новую запись. Это у меня будет список последних десяти событий.

Alex

Дата 15.1.2005, 20:27 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


// Нужно ТОЛЬКО для демонстрации работы //////////////////////////
var
  i: Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i:= 0;
end;
/////////////////////////////////////////////////////////////////////////////////////

procedure TForm1.Button2Click(Sender: TObject);
begin

  with ListView1.Items.Insert(0) do begin
    Inc(i); // Только для демонстрации
    Caption:= IntToStr(i);
  end;
  if ListView1.Items.Count > 10 then
    ListView1.Items.Delete(10);
end;

Добавлено @ 20:30
Добавление всегда происходит в 1-ую строку и если кол-во строк становится равным 11-и, то последняя строка удаляется.

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Elephant

Дата 15.1.2005, 21:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ура-а-а-а. Спасибо, спасибо огромное!

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