SubItems.Delete

[bulldog5293]

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

[Stilet]

Item[ItemIndex].SubItems.Delete(SubItem);

SubItem - Это что? В метод удаления нужно передавать номер. Номер этот должен начинатся с нуля, и это будет со второй колонки. Первая колонка - Caption, начиная с второй остальные уже подчиняются данным из SubItems.

но ругается и выполнятся до канца не хочет

Я его понимаю. "Канца" - штука страшная, с летательным исходом.

[bulldog5293]

а как передать номер, ведь текст может стоять произвольным, к примеру 79,664,6548,1233,8561 а в едит ввили 1233

немного подумав, я понял так, что текст который найде в subitems должен передать номер самого subitems в котором он находется, но как такое сделать ума не приложу, Stilet подскажи если не трудно

[Stilet]

i:=Item[ItemIndex].SubItems.IndexOf('Тут текст, который нужно наискать чтоб удалить');
if i<>-1 then Item[ItemIndex].SubItems.Delete(i);

И то это если я правильно тебя понял - найти поле с таким текстом и его удалить
Или

i:=Item[ItemIndex].SubItems.IndexOf('Тут текст, который нужно наискать чтоб удалить');
if i<>-1 then Item[ItemIndex].SubItems[i]:='';

Это найдет, если найдется и просто затрет, не смещая остальные поля в записи

[bulldog5293]

Сделал так

procedure TForm1.Button1Click(Sender: TObject);
var
ItemIndex,SubItem: integer;
CName: string; CSize: integer; Index: integer;
i: 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
  i:=Item[ItemIndex].SubItems.IndexOf('Edit1.text');
if i<>-1 then Item[ItemIndex].SubItems.Delete(i);
      ShowMessage('запись '+Edit1.text+' удалина');

 end;
 end;
  end
else
begin
 ShowMessage(Edit1.text+' не найден');
begin
  end;
  end;
end;

Но не чего не удаляестся, просто нада сделать что бы запись удалилась и на её место встали последующие записи

[Stilet]

и на её место встали последующие записи

Тогда тебе мой первый вариант.
Насчет не удаляется - проверяй доходит ли до удаления в отладке, может у тебя по условию вообще не должно попадать на удаление.

[bulldog5293]

Спс, работает, сделал так

begin
  i:=ListView1.Items.Item[1].SubItems.IndexOf(Edit1.text);
if i<>-1 then ListView1.Items.Item[1].SubItems.Delete(i);
      ShowMessage('запись '+Edit1.text+' удалина');
 end;