delphi ile klasör içindeki dosya sayısını öğrenme

[savasgti]

Arkadaşlar delphi ile belirttiğim klasör içindeki dosya sayısını ve dosya adları nasıl alırım. Acil yardım ederseniz sevinirim şimdiden teşekkürler kolay gelsin.

[conari]

Kod: Tümünü seç

var
  FilesList: TStringList;
begin
  FilesList := TStringList.Create;
  try
    FindFiles(FilesList, EditStartDir.Text, EditFileMask.Text);
    ListBox1.Items.Assign(FilesList);
    LabelCount.Caption := 'Files found: ' + IntToStr(FilesList.Count);
  finally
    FilesList.Free;
  end;

EditStartDir.Text --Bakılacak klasör
EditFileMask.Text -- dosya uzantası * olursa hepsi

[savasgti]

teşekkür ederim