[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

14.01.2008, 10:16

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

Цитата:

if OpenDialog1.Execute then begin
///тут код
end;
а что за код?

Так тот код, который нужен. К примеру, открывается OpenDialog, выбирается имя файла, затем с указанным файлом производятся некие действия, например, загрузка содержимого файла в компонент TMemo

Код:

if OpenDialog1.Execute then begin
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  ...
end;

или открывается картинка и вставляется в компонент TImage

Код:

if OpenDialog1.Execute then begin
  image1.Picture.LoadFromFile(opendialog1.filename);
  ...
end;

Все зависит от того, какие действия вы будете производить с файлом, открываемом через OpenDialog. Исходя из этого, такой и код будет =)

Похожие темы

Тема

Автор

Раздел

Ответов

Последнее сообщение

[Wi-Fi, BT] Задай вопрос - получи ответ!

Alexsize

Беспроводные технологии/Wi-Fi/Wardriving

2568

25.04.2026 12:58

[jQuery] - Задай вопрос, получи ответ

Isis

PHP

25.12.2009 03:25