При выборе файла через opendialog записывать его имя и тип в edit

@tudswt · Регистрация: 22.11.2018

Студворк — интернет-сервис помощи студентам

При выборе файла через opendialog записывать его имя и тип в edit (если возможно сделать то при выборе файла копировать его в папку с программой)

Добавлено через 5 минут
Тип - расширение файла

Добавлено через 2 минуты
Всё сделал, не нужно

@Пытливый · 03.01.2020, 12:18

Если сделали, опубликуйте решение

@tudswt · 03.01.2020, 13:36 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm2.sButton3Click(Sender: TObject);
var sdir:string;
begin
sdir:=extractfilepath(Application.ExeName)+datetostr(now);
createdir(sdir);
sOpenDialog1.DefaultExt:=ExtractFilePath(Application.ExeName);
if sOpenDialog1.Execute then
begin
sRichEdit1.Text:=sOpenDialog1.FileName;
copyfile(pchar(sOpenDialog1.FileName),pchar(sdir+'\'+extractfilename(sOpenDialog1.FileName)),false);
end;
end;

@D1973 · 04.01.2020, 09:26

Сообщение от tudswt

sOpenDialog1.DefaultExt:=ExtractFilePath (Application.ExeName);

1. Свойство DefaultExt - в дословном переводе - расширение по умолчанию... Как Вы в расширение собираетесь впихнуть путь? Более того...
2. Свойство DefaultExt не применимо к компоненту OpenDialog, но зато при использовании компонента SaveDialog предоставляет возможность не писать расширение явно - оно будет подставлено именно из значения этого свойства.

@AzAtom · 04.01.2020, 10:01

Вероятно, ТС хотел написать

Delphi
1
  sOpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);

@D1973 · 04.01.2020, 10:21

Не по теме:

Сообщение от AzAtom

sOpenDialog1.InitialDir

Насколько мне известно, последний раз, когда это свойство работало - это связка Delphi7 + Windows XP...
На Win7 это свойство стало бесполезным...

@AzAtom · 04.01.2020, 10:33

D1973, проверил в D7+Win7 и в XE3+Win7 - нормально открывается в указанной директории.

@D1973 · 04.01.2020, 10:57

AzAtom, ради эксперимента: запустите приложение, вызовите диалоговое окно и выберите файл из каталога, отличного от того, который указан в InitialDir... Потом откройте диалоговое окно второй раз... Какая папка будет открыта?

Не по теме:

У меня сейчас Win7 нет под рукой, но, на сколько помню, там эта ситуация уже обозначилась... А на 8.1 у меня стабильно открывается последняя открытая папка вне зависимости от этого свойства... Или это приколы Винды?

@AzAtom · 04.01.2020, 11:19

D1973, действительно, во второй раз открывается папка, где был выбран файл, а не та, что задана в InitialDir. Но если очищать FileName, то каждый раз открывается в заданной в InitialDir папке:

Delphi
1
2
3
  OpenDialog1.InitialDir := 'D:\';
  OpenDialog1.FileName := '';
  OpenDialog1.Execute;

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@tudswt 2 / 2 / 0 Регистрация: 22.11.2018 Сообщений: 305

	При выборе файла через opendialog записывать его имя и тип в edit 03.01.2020, 09:06. Показов 717. Ответов 8 Метки нет (Все метки) При выборе файла через opendialog записывать его имя и тип в edit (если возможно сделать то при выборе файла копировать его в папку с программой) Добавлено через 5 минут Тип - расширение файла Добавлено через 2 минуты Всё сделал, не нужно 0

@Пытливый 3763 / 2271 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	03.01.2020, 12:18
	Если сделали, опубликуйте решение 0

@AzAtom Модератор 4149 / 2360 / 812 Регистрация: 15.11.2015 Сообщений: 9,457
	04.01.2020, 10:33
	D1973, проверил в D7+Win7 и в XE3+Win7 - нормально открывается в указанной директории. 0

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	04.01.2020, 10:57
	AzAtom, ради эксперимента: запустите приложение, вызовите диалоговое окно и выберите файл из каталога, отличного от того, который указан в InitialDir... Потом откройте диалоговое окно второй раз... Какая папка будет открыта? Не по теме: У меня сейчас Win7 нет под рукой, но, на сколько помню, там эта ситуация уже обозначилась... А на 8.1 у меня стабильно открывается последняя открытая папка вне зависимости от этого свойства... Или это приколы Винды? 0