klasör isimlerini listeleme

[akuyumcu63]

değerli arkadaşlar;

delphiden kodlarla bir klasör içindeki klasör adlarını combobox 'a yada listbox'a nasıl alabilirim. formda araştırdım ama bir sonuç elde edemedim. bana sadace yolunu belirtiğim klasördeki klasör adlarını versin, dosyaları vermesin, istiyorum.

mesela data klasör içinde aaa,bbb,ccc klasörlari varsa bunların isimlerinin comboboxta listelenmesi.

kolay gelsin;

[akdatilla]

9 Mayıs tarihli Kafkasyalı arkadaşın sorusuna benziyor sizinki.
Başlık adı: Dosya isimlerini gride aktarma ve çalıştırma hakkında 2 soru
viewtopic.php?f=2&t=23298

[akuyumcu63]

baktım ama kodlardan pek bir şey anlayamadım. benim aradığım şeye belki yakın ama ben faydalanamadım.

[akdatilla]

Kod: Tümünü seç

procedure FindDirs(LS:TStrings;StartDir: string);
var
   SR: TSearchRec;
   DirList: TStringList;
   IsFound, IsFound1: Boolean;
   dosya: string;
   i: integer;
begin
   LS.Clear;
   if StartDir[length(StartDir)] <> '\' then
      StartDir := StartDir + '\';
   IsFound :=FindFirst(StartDir + '*.*', faDirectory, SR) = 0;
   while IsFound do
   begin
         if ((SR.Attr and faDirectory) <> 0) and (SR.Name[1] <> '.') then
            LS.Add(SR.Name);
         IsFound := FindNext(SR) = 0;
   end;
   FindClose(SR);
end;

procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
     FindDirs(Combobox1.Items,'C:\');
end;

[akuyumcu63]

çok özür dilerim. tam oradığım kodmuş hangi klasör göstersem onun içindeki sadece klasörleri listeliyor. teşekkür derim.

kolay gelsin