Integer'i 1,2,3 Diye Arttırma?

[Trial_Cooder]

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
  SRF: TSearchRec;
begin

  if FindFirst(c:\documents and settings\belgelerim\*.jpg', faAnyFile, SRF) = 0 then
  begin
    repeat
      Memo1.Lines.Add(c:\documents and settings\belgelerim\' + SRF.Name);
    until FindNext(SRF) <> 0;
  end;
  FindClose(SRF);
end;

procedure TForm1.TemizleClick(Sender: TObject);
var
 i: Integer;
begin
 DeleteFile(Memo1.Lines[i]);
if Memo1.Lines[i] <> '' then
 Temizle.Click;
end;

Nasıl Memo1.Lines'in Bi Alt Satırına Geçirtebilirim?

[NewMember]

for döngü

[Trial_Cooder]

İstediğimi Bulamadım

Kod: Tümünü seç

var
 i: Integer;
begin
 DeleteFile(Memo1.Lines[i]);

Memo'nun Her Seferinde Bir Satır Aşağıya İnmesinin Başka Bi Yolu Yokmu?

[selimr]

Kod: Tümünü seç

DeleteFile(memo1.Lines.Strings[i]);

ayrıca memoyu temizlemek için

Kod: Tümünü seç

memo1.clear;

yazman yeterli

[poshet303]

Kod: Tümünü seç

procedure TForm1.TemizleClick(Sender: TObject); 
var 
 i: Integer; 
begin 
 DeleteFile(Memo1.Lines[i]); 
if Memo1.Lines[i] <> '' then 
 Temizle.Click; 
end;

Hayatımda ilk defa böyle bir kod gördüm. i bir değer almaz iken bu kısım nasıl çalışıyor. Tabi i başlangıçta 0 olabilir ama bu mevzu değil. Bu kodun amacı nedir. Memo1 de listelenen dosyalatı silmek mi? Neden Memo nden Listbox değil. Neden dosya silindikten sonra dosya adı Memo dan silinmiyor?

Kod: Tümünü seç

procedure TForm1.TemizleClick(Sender: TObject); 
var 
 i: Integer; 
begin
 for i:=0 to myListBox.Items.Count-1 do
 begin 
  DeleteFile(myListBox.Items[i]); 
  myListBox.Items.Delete(i);
 end;
end;

Bu bana daha mantık geldi ama tahmini bir kod çünkü tam olarak ne yapmak istediğinizi bilmiyorum. Burda Listbox da seçili dosyaları silmek gibi bir takım daha kullanışlı şeyler düşünülebilir.

[Trial_Cooder]

T.Y. Buldum

Kod: Tümünü seç

var
 i: Integer;
 toplam: integer;
begin
 if Memo1.Lines[i] <> '' then
Memo1.Lines.Count;
for i := 1 to toplam do
  DeleteFile(Memo1.Lines[i]);