Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 2/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Listeleme
#1
Listview ' e aşağıdaki kod ile dosyadaki mp3 leri listeliyoruz 
isteğim : mp3 lerin yanında +avi + wav gibi sesleri de listelemek istiyorum

[ (*.*) kodu ile herşeyi listeliyor ]


for Konum in TDirectory.GetFiles(Konum, '*.mp3', AramaSecenegi) do
Cevapla
#2
İyi akşamlar. Böyle denermisiniz. *.mp3;*.wav;*.avi
WWW
Cevapla
#3
(01-05-2017, Saat: 19:27)AliZairov Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olİyi akşamlar. Böyle denermisiniz. *.mp3;*.wav;*.avi

Bunu deneyip yazmadınız sanırım, çünkü çalışmıyor. 

Şu metod ile, Ali bey'in yazdığı şekilde deneyebilirsiniz: 

function Get_Files(const Path, Masks: string): TStringDynArray;
var
 MaskArray: TStringDynArray;
 Predicate: TDirectory.TFilterPredicate;
begin
  MaskArray := SplitString(Masks, ';');
  Predicate :=
     function(const Path: string; const SearchRec: TSearchRec): Boolean
     var
        Mask: string;
     begin
        for Mask in MaskArray do
        begin
           if MatchesMask(SearchRec.Name, Mask) then
           begin
              exit(True);
           end;
        end;
        exit(False);
     end;
  Result := TDirectory.GetFiles(Path, Predicate);
end;
Cevapla
#4
Uses kısmına
Masks , StrUTils ( eklenmesi gerek )

for Konum in TDirectory.GetFiles(Konum, '*.mp3;*.wav;*.avi', AramaSecenegi) do


şeklinde yaptım çalıştırmadı ..
Cevapla
#5
Çalışmadığını zaten Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol yazmış. 
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol'nun sunduğu çözümü kullanmalısınız.
There's no place like 127.0.0.1
WWW
Cevapla
#6
(02-05-2017, Saat: 14:52)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlÇalışmadığını zaten Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol yazmış. 
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol'nun sunduğu çözümü kullanmalısınız.

@Edo'nun verdiği kodları kullanmıştım hocam

Uses kısmına yazılan kodlar onlara ait .
Cevapla
#7
edo'nun yazdıklarında TDirectory yok ama sizin "çalışmadı" dediğiniz kodlarda TDirectory.GetFiles kullanılmış.
There's no place like 127.0.0.1
WWW
Cevapla
#8
(02-05-2017, Saat: 14:55)Paranoyaq Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(02-05-2017, Saat: 14:52)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlÇalışmadığını zaten Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol yazmış. 
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol'nun sunduğu çözümü kullanmalısınız.

@Edo'nun verdiği kodları kullanmıştım hocam

Uses kısmına yazılan kodlar onlara ait .

Gönderdiğim kod çalışan koddur, çalışmadıdan kastınız nedir?

Özelden attığınız mesajı gördüm, aşağıdaki gibi olmalı kodunuz (Ali bey in yazdığı gibi yazılması lazım demiştim):

for Konum in Get_Files(Konum, '*.mp3;*.wav;*.avi', AramaSecenegi) do
Cevapla
#9
(02-05-2017, Saat: 15:32)edo Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(02-05-2017, Saat: 14:55)Paranoyaq Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol@Edo'nun verdiği kodları kullanmıştım hocam

Uses kısmına yazılan kodlar onlara ait .

Gönderdiğim kod çalışan koddur, çalışmadıdan kastınız nedir?

Özelden attığınız mesajı gördüm, aşağıdaki gibi olmalı kodunuz (Ali bey in yazdığı gibi yazılması lazım demiştim):

for Konum in Get_Files(Konum, '*.mp3;*.wav;*.avi', AramaSecenegi) do

Function Get_Files:String; 

Olarak tanımlayınca aşağıdaki hataları veriyor.

Br765M.png
Cevapla
#10
Fonksiyon size zaten tanımlı olarak verilmiş.
There's no place like 127.0.0.1
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  listeleme Dostk 3 181 24-01-2018, Saat: 16:20
Son Yorum: Dostk
  Resim Listeleme Paranoyaq 13 493 02-01-2018, Saat: 21:25
Son Yorum: Paranoyaq
  Fotoğraf Listeleme Paranoyaq 7 528 13-05-2017, Saat: 17:45
Son Yorum: Paranoyaq



Konuyu Okuyanlar: 1 Ziyaretçi