Klasördeki Resim dosyalarinin sayisi?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
sarikan
Üye
Mesajlar: 9
Kayıt: 27 Ara 2016 12:25

Klasördeki Resim dosyalarinin sayisi?

Mesaj gönderen sarikan »

Arkadaslar bir klasörün icindeki resim dosyalarinin sayisini ve isimlerini bulmam lazim nasil yapabilirim?
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Re: Klasördeki Resim dosyalarinin sayisi?

Mesaj gönderen true_false »

var
searchResult : tsearchrec;

begin
// Try to find regular files matching Unit1.d* in the current dir
if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
begin
repeat
ShowMessage('File name = '+searchResult.Name);
ShowMessage('File size = '+IntToStr(searchResult.Size));
until FindNext(searchResult) <> 0;

// Must free up resources used by these successful finds
FindClose(searchResult);
end;
end;
type
Tform1 = class(Tform)
onur2x
Üye
Mesajlar: 19
Kayıt: 29 Şub 2016 12:20

Re: Klasördeki Resim dosyalarinin sayisi?

Mesaj gönderen onur2x »

Kod: Tümünü seç

procedure TForm1.ListeleDosyalari(Klasor: string; Dosyalar: TStrings; uzanti:string);
var
SR: TSearchRec;
  begin
    if FindFirst(Klasor+ uzanti, faAnyFile, SR) = 0 then
      begin
        repeat
          if (SR.Attr <> faDirectory) then
            begin
             Dosyalar.Add(ChangeFileExt(SR.Name, '')); 
            end;
        until FindNext(SR) <> 0;
             FindClose(SR);
      end;
  end;
kullanımı

Kod: Tümünü seç

ListeleDosyalari(ExtractFilePath(Application.ExeName)+'resimler\', listbox1.Items,'*.jpg');  //listbox1 e jpg uzantılı dosyaları listeler  sayısınıda listbox1.Items.Count  diyerek ögrenebilirsin 
Cevapla