Заменить открытие списка файлов на поиск по папкам
Добавлено: 26 июл 2009, 13:47
Здравствуйте. помогите заменить одну функцию на другую.
есть у меня такой код открытия файлов и работы с ними:
мне необходимо использовать не открытие файлов, а указать папку и искать необходимые файлы в ней и есть такая функция:
нужно чтобы можно было выбрать директорию для поиска файлов (SpeedButton1Click), и по нажатию на кнопку сохранить в файл (Button2Click). Заранее спасибо.
есть у меня такой код открытия файлов и работы с ними:
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
...
end;
Код: Выделить всё
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if (SelectDirectory('Выбор директории', '', _dirName)) then
begin
Edit1.Text:=_dirName;
end;
end;