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