как правельно удалить 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, но ругается и выполнятся до канца не хочет, что я не правельно делаю?