VPF::Добавить в ListView - Форум программистов

WERITAS

Дата 28.6.2007, 06:20 (ссылка)

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

Загрузка ...

********

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

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

Почему не работает вот такой код и как его нужно изменить, чтоб работал:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
   ListView1.Columns.Add;
   ListView1.Columns.Add;
   ListView1.Columns.Add;

   ListView1.Columns.Items[0].Caption:= 'Число';
   ListView1.Columns.Items[0].Width:= 290;

   ListView1.Columns.Items[1].Caption:= 'Число';
   ListView1.Columns.Items[1].Width:= 40;

   ListView1.Columns.Items[2].Caption:= 'Число';
   ListView1.Columns.Items[2].Width:= 70;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  k,i:integer;
begin

  // Добавить 1 и 20 только, если их там нет!!!

  ListView1.Items.Add;
  k:= 0;
  
   for i:=0 to ListView1.Items.Count-1 do
    if ((ListView1.Items[i].Caption = '1') AND
        (ListView1.Items[i].SubItems[1] = '20'))  then
       inc(k);

   if(k=0) then
    begin
      ListView1.Items.Add;
      ListView1.Items[0].Caption:= '1';
      ListView1.Items[0].SubItems[1]:= '20';
    end;

end;

Почему-то не работает проверка

Код


for i:=0 to ListView1.Items.Count-1 do
    if ((ListView1.Items[i].Caption = '1') AND
        (ListView1.Items[i].SubItems[1] = '20'))  then
       inc(k);

Сразу скажу, что с ListView'ом Я - дилетант smile

Это сообщение отредактировал(а) WERITAS - 28.6.2007, 06:33

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

Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"

Snowy

Дата 28.6.2007, 10:41 (ссылка)

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

Загрузка ...

Эксперт

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

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

Не создал субитемсы.

Код


  with ListView1.Items.Add do
  begin
    Subitems.Add('0');
    Subitems.Add('0');
    Subitems.Add('0');
  end;

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