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

FreePaul

Дата 20.1.2004, 02:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте. Подскажите, пожалуйста, как мне сделать следующее:
Имеется база данных записей пользователей сети, которые отображаются в DBGrid, а так же при запуске программы строится список всех доступных пользователей сети (выводится в ListView). Как можно отфильтровать в ListView записи так, чтобы те, что уже находятся в базе данных, не отображались.
ListView и DBGrid отображаются на одной форме, которая является своеобразной адресной книгой.

Fedor

Дата 20.1.2004, 03:13 (ссылка)

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

Загрузка ...

Днепрянин

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

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

Короткий ответ таков: просто просматривай для каждого претендента в ListView существование в DBGrid

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

Мы - Днепряне. Мы всех сильней.

FreePaul

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

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

Загрузка ...

Новичок

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

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

Пытаюсь:

Код

for I:=1  to Table.RecordCount  do
 begin
  try
  ListView1.FindCaption(0, TableAdrName.Value, False, False, False);
  ListView1.DeleteSelected;
  finally
  end;
 end;

Не работает...

Alex

Дата 20.1.2004, 08:52 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код

for I:=1  to Table.RecordCount  do
begin
 ListView1.ItemIndex := ListView1.Items.IndexOf(ListView1.FindCaption(0, TableAdrName.Value, False, True, True));
 ListView1.DeleteSelected;
end;

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

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

FreePaul

Дата 20.1.2004, 09:22 (ссылка)

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

Загрузка ...

Новичок

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

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

for I:=1 to Table.RecordCount do
begin
Table.RecNo:=I;
ListView1.ItemIndex := ListView1.Items.IndexOf(ListView1.FindCaption(0, TableAdrName.Value, False, True, True));
ListView1.DeleteSelected;
end;

Вот так оно заработало... Ура! Спасибо огромное!

Это сообщение отредактировал(а) FreePaul - 20.1.2004, 09:24

Alex

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

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

Загрузка ...

Эксперт

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

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

Да не за что

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

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

Medved

Дата 20.1.2004, 22:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

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

ИМХО грамотней вот так:

Код


with Table1 do begin
   first;
   while not Eof do begin
      ListView1.ItemIndex := ListView1.Items.IndexOf(ListView1.FindCaption(0, TableAdrName.Value, False, True,True));
      ListView1.DeleteSelected;       
      next;
   end;
end;

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

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

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