[bulldog]

Как правельно сделать поиск в 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;

толку не дал
модераторы удалите тему вопрос снят