Dosya İsimlerini StringGridde Listeleme

[kara_kule06]

Slm arkadaşlar.
ben bir klasörde bulunan dosyaların adlarını string gridde listelemek istiyorum. Bunu arkaya bir file listbox vererek ordan da stringgride atarakta yapabilirim ama bu biraz saçma(ilkel) bir yol olduğu için yapmak istemiyorum. Acaba bunu yapabiliceğim kod satırını bilen var mı?

[mkysoft]

Kod: Tümünü seç

var
dosyasay: integer;
sonuc : TSearchRec;
begin
dosyasay := FindFirst('C:\*.*', faAnyFile - faDirectory, sonuc);
  while dosyasay = 0 do
  begin
    //burada string gride ekle
    stringgrid.add(sonuc.name);
    dosyasay := FindNext(sonuc);
  end;
  FindClose(sonuc);
end;

kolay gelsin.

[kara_kule06]

Sağol kardeş ama olmadı, yapamadım. String gridin içi boş geliyor. Dosya isimleri yazmıyor.

[mkysoft]

herhalde. ben sana sadece dosyaları nasıl bulacağını gösterdim. eğer arama yaparsan stringgridi nasıl kullancağını öğrenebilirsin.

[kara_kule06]

Tşk
Arıyorum
Kolay Gelsin

[mkysoft]

stringgrid1.cols
stringgrid1.rows
stringgrid1.cells[row,col]

bu üç özelliği kullanman yeterli gelecektir.