![Старый](images/statusicon/post_old.gif)
12.01.2011, 20:52
|
Начинающий
|
|
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
|
|
Работа с ListV iew
Как правельно сделать поиск в Li stview по subi tems в порядке цифры буквы и если после subi tems в катором цыфры в следующем нет букв удалить тот в котором цифры. Метод
Код:
procedure TForm10.Button1Click(Sender: TObject);
var
Index,SubItem: integer;
CName: string; CSize: integer;
i: integer;
begin
if pos(Edit1.text,ListView1.Items.Item[0].SubItems.Text)<>0 then
begin
ShowMessage(Edit1.text+' найден');
ShowMessage('запись '+Edit1.text+' будет удалина');
begin
i:=ListView1.Items.Item[0].SubItems.IndexOf(Edit1.text);
if i<>-1 then ListView1.Items.Item[0].SubItems.Delete(i);
ShowMessage('запись '+Edit1.text+' удалина'); end;
end
else
begin
ShowMessage(Edit1.text+' не найден');
begin
end;
end;
end;
procedure TForm10.FormCreate(Sender: TObject);
begin
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.CulumnAdd('Test Column',100,ListView1);
LVUtils.ItemAdd('Test item',0,-1,ListView1);
ListView1.Items.Item[0].SubItems.add('фан');
ListView1.Items.Item[0].SubItems.add('пепси');
ListView1.Items.Item[0].SubItems.add('412');
ListView1.Items.Item[0].SubItems.add('кола');
ListView1.Items.Item[0].SubItems.add('4532');
ListView1.Items.Item[0].SubItems.add('ихтыщ');
ListView1.Items.Item[0].SubItems.add('512');
ListView1.Items.Item[0].SubItems.add('');
end;
толку не дал ![Печаль](images/smilies/frown.gif)
модераторы удалите тему вопрос снят
Последний раз редактировалось bulldog, 13.01.2011 в 00:26.
|