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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
На границе империй. Том 3
3. Фортуна дама переменчивая
Фантастика
:космическая фантастика
.
5.63
рейтинг книги
За Горизонтом
8. Фронтир
Фантастика
:боевая фантастика
,космическая фантастика
,космоопера
.
5.00
рейтинг книги
Кодекс Охотника. Книга XII
12. Кодекс Охотника
Фантастика
:боевая фантастика
,городское фэнтези
,аниме
.
7.50
рейтинг книги
Бояръ-Аниме. Газлайтер. Том 35
35. История Телепата
Фантастика
:аниме
,боевая фантастика
,фэнтези
.
6.25
рейтинг книги
Студиозус 2
4. Светлая Тьма
Фантастика
:юмористическое фэнтези
,городское фэнтези
,аниме
.
6.25
рейтинг книги
Паладин из прошлого тысячелетия
1. Соприкосновение миров
Фантастика
:боевая фантастика
,попаданцы
.
6.25
рейтинг книги
Золушка вне правил
Любовные романы
:любовно-фантастические романы
.
6.83
рейтинг книги
Эволюционер из трущоб. Том 10
10. Эволюционер из трущоб
Фантастика
:попаданцы
,аниме
,фэнтези
,фантастика: прочее
.
5.00
рейтинг книги
Кодекс Охотника. Книга IX
9. Кодекс Охотника
Фантастика
:боевая фантастика
,городское фэнтези
,попаданцы
.
5.00
рейтинг книги
Черная метка
7. Гибрид
Фантастика
:технофэнтези
,аниме
,фэнтези
,попаданцы
.
5.00
рейтинг книги
Кадет Морозов
4. Живой лёд
Фантастика
:боевая фантастика
.
5.72
рейтинг книги
Неудержимый. Книга XV
15. Неудержимый
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Локки 7. Потомок бога
7. Локки
Фантастика
:аниме
,эпическая фантастика
,фэнтези
.
5.00
рейтинг книги
Рассвет русского царства 3
3. Новая Русь
Фантастика
:историческое фэнтези
,альтернативная история
.
5.00
рейтинг книги
Наследие Маозари
1. Наследие Маозари
Фантастика
:рпг
,попаданцы
,аниме
.
5.80
рейтинг книги
Тринадцатый III
3. Видящий смерть
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.25
рейтинг книги
Бастард Императора. Том 3
3. Бастард Императора
Фантастика
:попаданцы
,аниме
,фэнтези
.
5.00