Listview subitem eğer dosya yoksa

[carsoft]

Merhabalar.
Listview'de dosyaların var olup olmadığını kontrol ediyorum siliyorum, fakat dosya varsa'da yoksa'da subiteme sadece 'Bulunamadı' yazıyor.
problem nerede acaba.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  try
    with ListView1 do
    begin
      for i := Items.Count - 1 downto 0 do
      begin
        if Items[i].Checked then
        begin
          with ListView1 do
          begin
            DeleteFile(Items[i].SubItems[0]); // Tüm dosyaları konumundan siliyorum
            if FileExists(Items[i].SubItems[0]) then // eger dosya varsa
              ListView1.Items.Item[i].SubItems[1]:='Bulundu' ---> sub iteme  bulundu yazdırmak istiyorum yazdıramıyorum
            else 
             ListView1.Items.Item[i].SubItems[1]:='Bulunamadı';
          end;
        end;
      end;
    end;
  except
  end;
end;

[ikra]

döngü icerisinde deletefile prosedürünü cagirmissin.
dosya silinmis oldugundan fileexists fonksyonu false dönüyor.

with listview1 do dedikten sonra ikinci bir defa with listview1 do demene gerek yok.

[carsoft]

tamam teşşekürler anladım.