[vadim23409]

создал я FileListBox и направил его в какую-то папку, также создал кнопку, по которой в списке будут оставаться только текстовые файлы:

Код:

procedure TForm1.Button4Click(Sender: TObject);
begin
FilelistBox1.Directory := 'documents\';
FilelistBox1.Mask := '*.txt';
end;

с первого клика всё вроде норм., но со вторым пишет вот что:

Код:

Project Project1.exe raised exception class EInOutError with message 'File not found'. Process stoped. Use Step or Run to continue.

Что нужно написать, чтобы программа обновляла этот список???

[NumLock]

задай в Directory абсолютный путь

[vadim23409]

а если нужно так сделать, чтобы в списке показывались файли из папки, где программа, а ее кидают куда угодно?

[lmikle]

Сообщение от vadim23409

а если нужно так сделать, чтобы в списке показывались файли из папки, где программа, а ее кидают куда угодно?

Код:

ExtractFilePath(ParamStr(0))

спасет отца русской демократии.

[NumLock]

or:

Код:

:=IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'Documents';