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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Черный Маг Императора 12
12. Черный маг императора
Фантастика
:юмористическое фэнтези
,попаданцы
,аниме
,сказочная фантастика
,фэнтези
.
5.00
рейтинг книги
Инженер Петра Великого 2
2. Инженер Петра Великого
Фантастика
:попаданцы
,альтернативная история
,фэнтези
.
5.00
рейтинг книги
Убивая маску
13. Унесенный ветром
Фантастика
:боевая фантастика
.
5.75
рейтинг книги
Черный Маг Императора 5
5. Черный маг императора
Фантастика
:юмористическое фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Протокол "Наследник"
1. Гибрид
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Газлайтер. Том 3
3. История Телепата
Фантастика
:попаданцы
,альтернативная история
,аниме
.
5.00
рейтинг книги
Страж Кодекса. Книга VI
6. КО: Страж Кодекса
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Дважды одаренный. Том IV
4. Дважды одаренный
Фантастика
:городское фэнтези
,альтернативная история
,аниме
.
7.00
рейтинг книги
Студент из прошлого тысячелетия
2. Соприкосновение миров
Фантастика
:героическая фантастика
,попаданцы
,аниме
.
5.00
рейтинг книги
Темная сторона. Том 1
9. Гибрид
Фантастика
:технофэнтези
,аниме
,фэнтези
,попаданцы
.
5.00
рейтинг книги
Туполев
1327. Жизнь замечательных людей
Документальная литература
:биографии и мемуары
.
5.00
рейтинг книги
Третий. Том 6
Вселенная EVE Online
Фантастика
:боевая фантастика
,космическая фантастика
,фантастика: прочее
,попаданцы
.
5.00
рейтинг книги
Неучтенный элемент. Том 1
1. Антимаг. Вне системы
Фантастика
:городское фэнтези
,фэнтези
.
5.00
рейтинг книги
Тринадцатый XI
11. Видящий смерть
Фантастика
:попаданцы
,аниме
,фэнтези
,фантастика: прочее
.
5.00
рейтинг книги
Товарищ "Чума" 4
4. Товарищ "Чума"
Фантастика
:городское фэнтези
,альтернативная история
.
5.00
рейтинг книги
Linux программирование в примерах
Компьютеры и Интернет
:программирование
,ос и сети
.
5.00
рейтинг книги
Забытые боги
4. Путь князя
Фантастика
:фэнтези
,рпг
,попаданцы
.
5.00