| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

не совподающие элементы Listview

Ярослав ©   (2004-07-08 08:49:00) 

Hello to ALL!!!
Подскажите,как сделать что бы при случайном добовлении (цифры) итема в листвью,не добавлялись те которые уже есть в списке?
Заранее спасибо!!!

---

NAlexey   (2004-07-08 10:02:00) [1]


procedure TForm1.Button1Click(Sender: TObject);
var
 FListItem: TListItem;
begin
 FListItem := ListView1.FindCaption(0, Memo1.Text, False, True, True);
 if FListItem = nil then
 begin
   FListItem := ListView1.Items.Add;
   FListItem.Caption := Memo1.Text;
 end;
 FListItem.Selected := True;
 FListItem.Focused := True;
 FListItem.MakeVisible(True);
end;


---

R   (2004-07-08 09:47:00) [2]

>NAlexey ©   (08.07.04 09:31) [2]
Ваш вариант.

---

Семен Сорокин   (2004-07-08 09:38:00) [3]

а IndexOf не подойдет?
да и проще, наверное, источник отсортировать - и не брать повторяющиеся.

---

NAlexey   (2004-07-08 09:31:00) [4]

>R ©   (08.07.04 09:04) [1]
Ну зачем такие лишние телодвижения?

---

R   (2004-07-08 09:04:00) [5]

function ItemsExists(const S:String):Boolean;
begin
For I:=0 To LV.Items.Count-1 Do
If LV.Items[I].Caption=S Then begin
Result:=True;
BREAK;
end;
end;

If ItemsExists(S) Then не добавляй

---

Наверх