Текущий архив: 2004.07.25;
Скачать: 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 вся ветка
Текущий архив: 2004.07.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.079 c
