Скачать: CL | DM;

не совподающие элементы Listview   Найти похожие ветки 

← →
Ярослав   (2004-07-08 08:49) [0]

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

---

← →
R ©   (2004-07-08 09:04) [1]

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 не добавляй

---

← →
NAlexey ©   (2004-07-08 09:31) [2]

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

---

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

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

---

← →
R ©   (2004-07-08 09:47) [4]

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

---

← →
NAlexey ©   (2004-07-08 10:02) [5]


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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c