Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 1
Всего онлайн: 1
Зарегистрировано юзеров: 6358
Комментариев на сайте: 645
Новый юзер: Realtyvaday



Последние комментарии
c
Aqel прокомментировал "Урок 71 - Работа с сжатыми файлами":
GZip псевдоархив, на мой вопрос тоже не отвечают, как распаковать отдельные файлы/папки...
Pingitrus прокомментировал "Урок 71 - Работа с сжатыми файлами":
Есть еще кто нибудь живой на этом сайте, кто сможет помочь? Так то все работает, zip и rar распаковывает, но у меня есть файл dat который сжат GZip, почему то его не удается распаковать или так не получится так как этот файл не является архивом или является?)) пишет ошибку что неверная функция



Мы в соцсетях
c
Delphi
Урок 21 - Знакомство с компонентами (часть 12/12)

  Здравствуйте, дорогие друзья! Сегодня я расскажу вам про вкладку с компонентами - Dialogs. Компонент OpenDialog позволяет инициализировать диалог открытия файла. Для этого, поместим на форму следующие компоненты:

  • OpenDialog (вкладка Dialogs)
  • Button (вкладка Standard)
  • Label (вкладка Standard)


Форма


Создаем обработчик события OnClick на кнопке и пишем код:
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;
Скомпилируем программу и нажмем на нашу кнопку. Откроется диалог открытия файла:

OpenDialog


Усовершенствуем наш код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute=true then
Label1.Caption:= OpenDialog1.FileName;
end;
Теперь если пользователь откроет диалог и выберет какой-нибудь файл, то в Label отобразится полный путь до файла. Скомпилируем и проверим.

OpenDialog


Далее изучим компонент SaveDialog. Поместим его на форму и напишем код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute=true then
Label1.Caption:= SaveDialog1.FileName;
end;
Скомпилируем программу и нажмем на кнопку. Откроется диалог сохранения файла, где нужно указать каталог сохранения и имя файла.

SaveDialog


Конечно, физического сохранения файла не произойдет, только лишь в Label запишется полный путь до файла, потому что компонент SaveDialog позволяет только выбрать каталог и имя файла. У этих компонентов есть такое свойство, которое называется Filter. Оно позволяет отфильтровывать файлы по расширениям.

Filter


Первый столбик Filter Name задает имя фильтра. Второй столбик Filter задает сам фильтр, например: "*.txt" или "*.exe".



Filter




Filter


Остальные компоненты на вкладке Dialogs схожи с рассмотренными компонентами. Удачи!
Встретимся в следующем уроке!


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 7 Апреля 2013
Просмотров: 12426

Урок 20 - Знакомство с компонентами (часть 11/12) Урок 22 - Принцип работы с файлами

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил(а): Noblesse [Новичок] Дата: 2014-03-26
спасибо за Ваши уроки)))




аватар Добавил: belogod [Новичок] Дата: 2014-08-06
Отличные уроки. Главное не спешить, и вдумываться. И всё будет понятно))




аватар Добавила: shukrona.normatova [Новичок] Дата: 2016-07-22
Здравствуйте. Пожалуйста, приведите какой нибудь конкретный пример. Заранее спасибо)