Listview subiteminde güncelleme yapmak istiyorum

[Berdem]

Merhaba,
Listview subiteminde güncelleme yapmak istiyorum.Hata mesajı vermiyor ama güncelleme yapmıyor.Yatdımlarnızı bekliyorum.

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
 var
  a: integer;
begin
  a := ListView1.SelCount;
  if a = 0 then
    ShowMessage('Önce değiştirilecek elemanı seçiniz...')
  else
  begin
    ListView1.Items.BeginUpdate;
//  ListView1.Items.Add;
//     ListView1.Selected.Caption:='değişti';
    ListView1.Selected.SubItems.Add(Edit1.Text);//güncellemeyi göremiyorum...
    ListView1.Selected.SubItems.Add(Edit2.Text);
    ListView1.Selected.SubItems.Add(Edit3.Text);
    ListView1.Selected.SubItems.Add(Edit4.Text);
    ListView1.Items.EndUpdate;
  end;
end;

[emin_as]

Kod: Tümünü seç

Listview1.Selected.Subitems[0]:='Yeni Yazi';İ

gibi kullanman lazım, güncelleme yapmıyor, ekleme yapıyorsun. Eger ekleme yaparak düzenleyeceksen.

Kod: Tümünü seç

listview1.Selected.Subitems.Clear;
listview1.Selected.Subitems.Add('Yeni Yazi');
.........

Şeklinde yazmalısın.

[Berdem]

Çok teşekkürler.Sorunu çözdüm.