Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

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

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

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


 
©   (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 не подойдет?
да и проще, наверное, источник отсортировать - и не брать повторяющиеся.


 
©   (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.048 c
6-1085826074
eXtreme
2004-05-29 14:21
2004.07.25
Как узнать свободен ли порт?


3-1088673750
Relaxxx
2004-07-01 13:22
2004.07.25
Как мне в БД Оракл записать bmp-файл, в BLOB поле


6-1084312860
BiBle
2004-05-12 02:01
2004.07.25
HTTP- запрос в Delphi, его проведение и обработка !


14-1089287372
Igorek
2004-07-08 15:49
2004.07.25
LMD or not LMD? - that is the question


14-1089252288
Думкин
2004-07-08 06:04
2004.07.25
С днем рождения! 8 июля