VPF::элементы TreeView в ListBox - Форум программистов

Delphiec

Дата 1.8.2010, 03:22 (ссылка)

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

Загрузка ...

Новичок

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

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

следующий код добавляет выделенный элемент TreeView в ListBox.

Код


procedure TForm1.SpeedButton5Click(Sender: TObject);
begin

 if treeview1.Selected = nil then
 showmessage('в TreeView занеси че нить, потом сохраню и в ListBox')

 else
  ListBox1.Items.Add(TreeView1.Selected.Text);

end;

все нормально если нажать кнопку один раз,
но если нажать еще раз, то появится еще такой же элемент.... еще и еще (зависит сколько раз нажал).

помогите плиз, выйти из этой ситуации

xkor

Дата 1.8.2010, 13:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
 if treeview1.Selected = nil then
   showmessage('в TreeView занеси че нить, потом сохраню и в ListBox')
 else if ListBox1.Items.IndexOf(TreeView1.Selected.Text)=-1 then
   ListBox1.Items.Add(TreeView1.Selected.Text);
end;

Это сообщение отредактировал(а) xkor - 1.8.2010, 13:24

Delphiec

Дата 1.8.2010, 21:54 (ссылка)

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

Загрузка ...

Новичок

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

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

xkor, отлично, все работает. спасибо огромное! smile

Добавлено через 3 минуты и 11 секунд
тока объясни пожалста этот момент

Код


if ListBox1.Items.IndexOf(TreeView1.Selected.Text)=-1 then

что означает IndexOf и -1(в конце)?

Dom

Дата 2.8.2010, 07:57 (ссылка)

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

Загрузка ...

Шустрый

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

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

IndexOf возвращает номер итема в ЛистБоксе (номера итемов начинаются с 0). Если такой элемент не найден, то возвращается -1.

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