Delphi. Учимся на примерах
2005 г.
Отрывок из книги
else ShowMessage('Файл не был открыт'); end; При нажатии кнопки Обзор открывается диалоговое окно выбора файла (Open1.Execute). Если в этом окне пользователь нажал кнопку Отмена (Open1.Execute = False), то сообщаем ему об этом и не выполняем никаких действий. Если пользователь выбрал файл, то копируем путь к нему в соответствующее поле ввода. Создадим аналогичный обработчик события для выбора пути назначения при копировании первого файла (кнопке Button3 соответствует поле where):
procedure TForm1.Button3Click(Sender : TObject); begin if Save1.Execute then where.Text:= Save1.FileName else ShowMessage('Вы не выбрали место длясохранения файла!'); end; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Гримуар темного лорда VII
7. Гримуар темного лорда
Фантастика
:боевая фантастика
,попаданцы
,аниме
,фэнтези
.
5.25
рейтинг книги
Морской волк. 1-я Трилогия
1. Морской волк
Фантастика
:альтернативная история
.
8.71
рейтинг книги
Переписка и деловые бумаги
Документальная литература
:публицистика
.
5.00
рейтинг книги
Первый среди равных. Книга VI
6. Первый среди Равных
Фантастика
:аниме
,фэнтези
,попаданцы
.
5.00
рейтинг книги
Статьи
Документальная литература
:критика
,публицистика
.
5.00
рейтинг книги
Посланник
2. Страж
Фантастика
:научная фантастика
,космическая фантастика
.
5.00
рейтинг книги
Последний Паладин. Том 10
10. Путь Паладина
Фантастика
:попаданцы
,аниме
,фэнтези
.
5.00
рейтинг книги
Марш обреченных
1. Хроники геноцида
Фантастика
:фэнтези
,попаданцы
.
5.50
рейтинг книги
Роза ветров
6. Артефактор
Фантастика
:городское фэнтези
,аниме
,фэнтези
.
5.00
рейтинг книги
Дэниел Мартин
Проза
:современная проза
.
7.91
рейтинг книги
Черный маг императора
1. Черный маг императора
Фантастика
:юмористическая фантастика
,попаданцы
,аниме
.
5.00
рейтинг книги
Ученик афериста
Проза
:современная проза
.
5.00
рейтинг книги
Кодекс Охотника. Книга XXXVI
36. Кодекс Охотника
Фантастика
:аниме
,фэнтези
,попаданцы
.
5.00
рейтинг книги
Четвертое измерение
Фантастика
:боевая фантастика
.
8.36
рейтинг книги
Лабиринт Минотавра (сборник)
Сборники Роберта Шекли
Фантастика
:научная фантастика
.
5.00
рейтинг книги
Виконт. Книга 4. Колонист
Псевдоним `Испанец`
Фантастика
:фэнтези
,попаданцы
,аниме
.
7.50
рейтинг книги
Мир Приключений 1990 г.
Альманах "Мир приключений"
Фантастика
:научная фантастика
.
5.00