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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Личный аптекарь императора
1. Личный аптекарь императора
Фантастика
:городское фэнтези
,попаданцы
,аниме
,фэнтези
.
5.00
рейтинг книги
Жена со скидкой, или Случайный брак
Любовные романы
:любовно-фантастические романы
.
8.15
рейтинг книги
Печать пожирателя 2
2. Пожиратель
Фантастика
:городское фэнтези
,попаданцы
,аниме
,сказочная фантастика
.
5.00
рейтинг книги
Неудержимый. Книга XXVII
27. Неудержимый
Фантастика
:фэнтези
,попаданцы
.
5.00
рейтинг книги
Мастер 11
11. Мастер
Фантастика
:боевая фантастика
,попаданцы
,технофэнтези
,аниме
,фэнтези
.
5.00
рейтинг книги
Сильнейший Столп Империи. Книга 4
4. Сильнейший Столп Империи
Фантастика
:фэнтези
,аниме
,фантастика: прочее
,попаданцы
.
5.00
рейтинг книги
Ботаник
1. Ботаник
Фантастика
:фэнтези
,боевая фантастика
.
4.56
рейтинг книги
Разведчик. Заброшенный в 43-й
Героическая фантастика
Фантастика
:боевая фантастика
,попаданцы
,альтернативная история
.
5.93
рейтинг книги
Отмороженный 11.0
11. Отмороженный
Фантастика
:боевая фантастика
,рпг
,попаданцы
,фантастика: прочее
,фэнтези
.
5.00
рейтинг книги
Седина в бороду, Босс… вразнос!
Юмор
:юмористическая проза
.
5.00
рейтинг книги
Родословная. Том 2
2. Линия крови
Фантастика
:городское фэнтези
,аниме
,фэнтези
.
5.00
рейтинг книги
Двойник Короля 10
10. Двойник Короля
Фантастика
:аниме
,фэнтези
,фантастика: прочее
,попаданцы
.
5.00
рейтинг книги
Чужак из ниоткуда 3
3. Чужак из ниоткуда
Фантастика
:космическая фантастика
,альтернативная история
.
5.00
рейтинг книги
Вечная Война. Книга II
2. Вечная война.
Фантастика
:юмористическая фантастика
,космическая фантастика
.
8.37
рейтинг книги
Шайтан Иван 5
5. Шайтан Иван
Фантастика
:попаданцы
,альтернативная история
,историческое фэнтези
.
5.00
рейтинг книги
Деревенщина в Пекине 2
2. Пекин
Фантастика
:попаданцы
,дорама
,фантастика: прочее
.
5.00
рейтинг книги
Кодекс Крови. Книга ХVII
17. РОС: Кодекс Крови
Фантастика
:попаданцы
,аниме
,фэнтези
.
5.00