Тема: subitems.delete
Показать сообщение отдельно
  #1  
Старый 09.11.2010, 08:33
bulldog bulldog вне форума
Начинающий
 
Регистрация: 10.05.2010
Сообщения: 160
Репутация: 14
По умолчанию subitems.delete

как правельно удалить subitems, форму создаю так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
ItemIndex,SubItem: integer;
CName: string; CSize: integer; Index: integer;
begin
if pos(Edit1.text,ListView1.Items.Item[1].SubItems.Text)<>0 then
 begin
 ShowMessage(Edit1.text+' найден');
 ShowMessage('запись '+Edit1.text+' будет удалина');
 begin
  with ListView1.Items do
    begin
      Item[ItemIndex].SubItems.Delete(SubItem);
      ShowMessage('запись '+Edit1.text+' удалина');
 end;
 end;
  end
else
begin
 ShowMessage(Edit1.text+' не найден');
begin
  end;
  end;
end;

procedure TForm1.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.ItemAdd('Test item',0,-1,ListView1);
ListView1.Items.Item[0].SubItems.add('1');
ListView1.Items.Item[0].SubItems.add('2');
ListView1.Items.Item[0].SubItems.add('3');
ListView1.Items.Item[0].SubItems.add('4');
ListView1.Items.Item[0].SubItems.add('5');
end;
То есть от 1 до 5 должна удалить, смотря какая цифра стоит в edit'e, но ругается и выполнятся до канца не хочет, что я не правельно делаю?