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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Гранит науки. Том 2
2. Героями не становятся, ими умирают
Фантастика
:фэнтези
.
5.00
рейтинг книги
Московское золото и нежная попа комсомолки. Часть Пятая
5. Летчик Леха
Фантастика
:попаданцы
.
5.00
рейтинг книги
Весь цикл «Десантник на престоле». Шесть книг
Десантник на престоле
Фантастика
:альтернативная история
.
8.38
рейтинг книги
Барон не играет по правилам
1. Закон сильного
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Наследие Маозари 4
4. Наследие Маозари
Фантастика
:фэнтези
,попаданцы
.
5.00
рейтинг книги
Студиозус 2
4. Светлая Тьма
Фантастика
:юмористическое фэнтези
,городское фэнтези
,аниме
.
5.00
рейтинг книги
Гранд империи
3. Страж
Фантастика
:фэнтези
,попаданцы
,альтернативная история
.
5.60
рейтинг книги
Технарь
1. Технарь
Фантастика
:космическая фантастика
,попаданцы
.
7.13
рейтинг книги
Клан
2. Долгий путь домой
Фантастика
:боевая фантастика
,космическая фантастика
.
5.60
рейтинг книги
Петля, Кадетский корпус. Книга третья
3. Петля
Фантастика
:боевая фантастика
,попаданцы
,аниме
.
5.00
рейтинг книги
Император Пограничья 1
1. Император Пограничья
Фантастика
:аниме
,фэнтези
,фантастика: прочее
,попаданцы
.
5.00
рейтинг книги
Изменяющий-Механик. Компиляция. Книги 1-18
Собрание сочинений
Фантастика
:боевая фантастика
,космическая фантастика
.
5.00
рейтинг книги
Локки 10. Потомок бога
10. Локки
Фантастика
:фэнтези
,юмористическое фэнтези
,героическая фантастика
,боевая фантастика
.
5.00
рейтинг книги
Иной. Том 3. Родственные связи
3. Иной в голове
Фантастика
:боевая фантастика
,рпг
,аниме
.
5.00
рейтинг книги
Воронцов. Перезагрузка. Книга 4
4. Воронцов. Перезагрузка
Фантастика
:попаданцы
,альтернативная история
,фэнтези
,фантастика: прочее
.
6.00
рейтинг книги
Казачий князь
5. Шатун
Фантастика
:боевая фантастика
,попаданцы
,альтернативная история
.
5.00
рейтинг книги
Ваше Сиятельство 14
14. Ваше Сиятельство
Фантастика
:боевая фантастика
,аниме
,фэнтези
,гаремник
.
5.00