Listview1

[komex]

Значит сначала делаешь так:

with Listview1.Items.Add do begin      
  Caption:='Путь';      
  SubItems.Add('Статус');   
  SubItems.Add('');// Оставляем пустым
end;

А при нажатии на кнопку Удалить делаешь этот код (ставит статус удален в 3м столбце выделенной строки):

ListView1.Items[ListView1.ItemIndex].SubItems.Strings[1] := 'удален';

Вроде так... =)

[Ozerich]

Сообщение от komex

А при нажатии на кнопку Удалить делаешь этот код (ставит статус удален в 3м столбце выделенной строки):

ListView1.Items[ListView1.ItemIndex].SubItems.Strings[1] := 'удален';

Вроде так... =)

Ошибаешься в этом случае.
SubItems это и есть массив string.Не надо никаких Strings[1]

[komex]

Сообщение от Ozerich

Ошибаешься в этом случае.
SubItems это и есть массив string.Не надо никаких Strings[1]

Ну можно и так:

ListView1.Items[ListView1.ItemIndex].SubItems[1] := 'удален';

[Ozerich]

Сообщение от komex

Ну можно и так:

ListView1.Items[ListView1.ItemIndex].SubItems[1] := 'удален';

Так нужно а не можно.
Сори за флуд!

[Alter]

т.к тема переростает во флуд, даю готовое решение:

var
  Form1: TForm1;
  procedure AddItm(Lv :TListView; S1,S2,S3 :string);
  procedure SetItmTxt(LV :TListView; Indx,N :Integer; Txt :string);

implementation

{$R *.dfm}

procedure AddItm(Lv :TListView; S1,S2,S3 :string);
var Itm_ :TListItem;
begin //добавлять строки
 if Lv=nil then Exit;
 Itm_ := LV.Items.Add;
 Itm_.Caption := S1;
 Itm_.SubItems.Add(S2);
 Itm_.SubItems.Add(S3);
end;

procedure SetItmTxt(LV :TListView; Indx,N :Integer; Txt :string);
begin //Изменить текст колонок, строки Indx.  N <- колонка
 if Lv=Nil then Exit;
 if Lv.Items.Count<=0 then Exit;
 iF not (N in [0..LV.Items.Count-1]) then Exit;
  case N of
 0: Lv.Items[Indx].Caption := Txt;
 1: Lv.Items[Indx].SubItems.Strings[0] := Txt;
 2: Lv.Items[Indx].SubItems.Strings[1] := Txt;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var I :Byte;
begin
 Randomize;
 For I:=1 To 10 Do //добавляем при запуске 10 строк
 AddItm(LV1, 'Cap_'+IntToStr(I-1), 'Itm[0]_'+IntToStr(I-1),
        'Itm[1]_'+IntToStr(I-1))
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetItmTxt(LV1, Random(10), 2, 'Удаленно');
end;

end.

SubItems, это класс TStrings. Т.к всего три колнки, используйте процедуры: AddItm и SetItmTxt.

[aesoem]

при нажатии на удалить та же ошибка...

[Ozerich]

чтобы удалить выделенный надо
listview1.deleteselected
или listview1.items[index].delete.

Что здесь непонятного?

[aesoem]

Ozerich, проблема не в этом, проблема с выводом текста...

[Ozerich]

Aesoem,объясни поподробней проблему.

[aesoem]

несколькими словами: мне надо внести данные в 3 колону не изменяя данные в 1 и в 2 колоне