Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 19.04.2018
Сообщений: 86

В полях класса TEdit отобразить путь к файлу

15.05.2018, 17:17. Показов 1090. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В стандартном окне открытия файлов ОС Windows выбрать любой файл.
В полях класса TEdit отобразить путь к файлу (поле EditPath), имя файла без расширения и пути (поле EditName), расширение файла (поле EditExt), размер файла в байтах (поле EditSize), дату последнего изменения файла (поле EditDate).

Требуется программный код.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.05.2018, 17:17
Ответы с готовыми решениями:

Как отобразить путь к файлу в TextBox из OpenFileDialog?
есть программа, оформленная в windows form. ТЗ вещает : "Необходимо иметь возможность выбрать файл с входными данными;" Как...

Как узнать путь к файлу класса
Как узнать путь к файлу класса?.

Записать в поле класса путь к файлу, используя fileinput для выбора файла
Здравствуйте, уважаемые форумчане! В данный момент по работе столкнулся с фреймворком yii2. Только начал знакомство и еще очень многое не...

1
 Аватар для TrollHammer
1216 / 709 / 336
Регистрация: 22.02.2018
Сообщений: 2,095
Записей в блоге: 2
16.05.2018, 01:05
Лучший ответ Сообщение было отмечено Иванов137 как решение

Решение

Используем функции ExtractFileName, ExtractFilePath и т.д.

Добавлено через 24 минуты
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TOpenDialog *od = new TOpenDialog(this);
    LARGE_INTEGER f_size;
    FILETIME creationTime;
    SYSTEMTIME sysTime;
 
      od->Filter="All files (*.*)|*.*";
 
        if(od->Execute())
         if(od->FileName!="")
         {
           HANDLE hF = CreateFile(od->FileName.c_str(), GENERIC_READ, 0, NULL, OPEN_EXISTING, 0, NULL);
 
            Edit1->Text=ExtractFilePath(od->FileName);
            Edit2->Text=ExtractFileName(od->FileName);
            Edit3->Text=ExtractFileExt(od->FileName);
 
              GetFileSizeEx(hF, &f_size);
 
            Edit4->Text=IntToStr((__int64) f_size.QuadPart);
 
            GetFileTime(hF, &creationTime, 0, 0);
 
            FileTimeToSystemTime(&creationTime, &sysTime);
 
            Edit5->Text=IntToStr(sysTime.wDay)+"."+IntToStr(sysTime.wMonth)+"."+IntToStr(sysTime.wYear)+"  "+IntToStr(sysTime.wHour)+":"+IntToStr(sysTime.wMinute)+":"+IntToStr(sysTime.wSecond);
 
            CloseHandle(hF);
         }
 
 
 
    delete od;
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.05.2018, 01:05
Помогаю со студенческими работами здесь

Как сделать чтобы в полях TEdit всегда был ноль, а не пусто?
Как сделать чтобы в полях (TEdit) в не заполненном состоянии всегда бы содержало "0". Если пользователь пытается полностью...

Как программно получить путь к файлу конфигураций программы (файлу user.config)?
Задался целью программно очистить параметры программы, которые сохраняются в файле user.config. Так как параметров много, чтобы очистить...

Файл: Получить полный путь к файлу и записать этот путь в отдельную переменную.
Доброго времени суток.Столкнулся с проблемой в ходе выполнения задачи. Мне нужно получить полный путь к файлу и записать этот путь в...

Разбить путь к файлу на части - путь, файл и расширение
Как разбить путь к файлу на части - путь, файл и расширение? Например: c:\kuku\part1\name.txt $path=c:\kuku\part1\ $name=name ...

Как отобразить в TEdit только название выбранного файла?
Здраствуйте, случилась такая проблема: на форме TopenDialog,Tedit; Из TOpenDialog указываем файл. Как отобразить в TEdit только название...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Знаешь почему 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
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru