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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Матабар IV
4. Матабар
Фантастика
:фэнтези
.
5.00
рейтинг книги
Неучтенный элемент. Том 1
1. Антимаг. Вне системы
Фантастика
:городское фэнтези
,фэнтези
.
5.00
рейтинг книги
Старая школа рул
1. Второгодка
Фантастика
:альтернативная история
.
6.00
рейтинг книги
Сын Тишайшего
1. Царь Федя
Фантастика
:попаданцы
,альтернативная история
,фэнтези
.
5.20
рейтинг книги
Сотник
2. Индийский поход
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Дракон с подарком
3. Королевская академия Драко
Любовные романы
:любовно-фантастические романы
.
6.62
рейтинг книги
Седьмой Рубеж IV
4. 5000 лет темноты
Фантастика
:фэнтези
,попаданцы
.
5.00
рейтинг книги
Неудержимый. Книга XXXVII
37. Неудержимый
Фантастика
:аниме
,фэнтези
,фантастика: прочее
,попаданцы
.
5.00
рейтинг книги
Каторжник
1. Подкидыш
Фантастика
:попаданцы
,альтернативная история
,фэнтези
.
5.00
рейтинг книги
Изменяющий-Механик. Компиляция. Книги 1-18
Собрание сочинений
Фантастика
:боевая фантастика
,космическая фантастика
.
5.00
рейтинг книги
Барон играет по своим правилам
5. Закон сильного
Фантастика
:попаданцы
,аниме
,фэнтези
,фантастика: прочее
.
5.00
рейтинг книги
Кодекс Охотника XXVIII
28. Кодекс Охотника
Фантастика
:фэнтези
,боевая фантастика
,попаданцы
.
5.00
рейтинг книги
Анти-Ксенонская Инициатива
7. Фронтир
Фантастика
:боевая фантастика
,космическая фантастика
,космоопера
.
5.00
рейтинг книги
70 Рублей - 2. Здравствуй S-T-I-K-S
Вселенная S-T-I-K-S
Фантастика
:боевая фантастика
,постапокалипсис
.
5.00
рейтинг книги
Инкарнатор
1. Стеллар
Фантастика
:боевая фантастика
,рпг
.
7.30
рейтинг книги
Матабар III
3. Матабар
Фантастика
:фэнтези
.
5.00
рейтинг книги
#НенавистьЛюбовь
Любовные романы
:современные любовные романы
.
6.33