Список файлов

[Ky3Heu,]

Как получить в LISTBOX1 список имен файлов в директории по переменной pat?

var
pat:String
begin
pat:=ExtractFileDir(Application.exename);
end;

[Stilet]

Ky3Heu,

Используй вместо ЛистБокс FileListBox.

[SERG1980]

procedure TForm2.Button1Click(Sender: TObject);
var sr:Tsearchrec;
    i:integer;
begin
 i:=FindFirst('*.*',0,sr);
 while i =0 do
 begin
 i:=FindNext(sr);
  listbox1.Items.Add(sr.Name);
 end;
 findclose(sr);
end;

[ViNcHeStEr]

Не совсем так, последний файл выдаётся дважды.

var
  searchResult : TSearchRec;

begin
  // Пытаемся найти правильные файлы, соответствующие Unit1.d* в текущем каталоге
  if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then
  begin
    repeat
      ShowMessage(Имя файла = '+searchResult.Name);
      ShowMessage('Размер файла = '+IntToStr(searchResult.Size));
    until FindNext(searchResult) <> 0;

    // Должен освободить ресурсы, используемые этими успешными, поисками
    FindClose(searchResult);
  end;
end;

Код не мой.