Как определить постоянное местоположение файла в программе для взятия из него исходных данных?

@VVME · Регистрация: 13.08.2022

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

Как привязать файл Excel для вывода из него данных в программу к определенному пути (файл проекта, типо папка расчеты). Причина вопроса в том, что на одном компе проект программы лежит в одном месте, а на другом компе в другом и программа не может прочитать файл Excel. Как сделать, чтобы программа всегда понимала где считывать нужный файл??? Помогите с решением данного вопроса пожалуйста

@VVME · 18.10.2024, 21:49 **[ТС]**

как программно написать это? поиск? Пример покажите пожалуйста

@SeGun · 18.10.2024, 21:54

Есть такой OpenFileDialog.
Сейчас код поищу..

@VVME · 18.10.2024, 22:00 **[ТС]**

OpenFileDialog.опять же это еще отдельный диалог- а автоматом то программно это сделать наверно тоже возможно

@udmurt2024 · 18.10.2024, 22:01

путь к файлу передавать в параметре командной строки, если параметра нет, или по этому пути файла нет, то OpenFileDialog,
ну и иметь его как доп опцию.

@SeGun · 18.10.2024, 22:20

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
   if FileOpenDialog1.execute then
   if FileExists(FileOpenDialog1.FileName) then
   begin
   Label1.Captionr:=extractfilepath((FileOpenDialog1.FileName))+(ExtractFileName(FileOpenDialog1.FileName)); 
   end;
end;

Добавлено через 5 минут

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

а автоматом то программно это сделать наверно тоже возможно

Возможно, если программе 1 раз указать правильный путь и записать его где либо.

Добавлено через 13 минут
А по записи и чтению ini файла, можно посмотреть например это.

Verevkin · 18.10.2024, 22:39

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

Чем видео записываешь?

OBS-ом.

@AzAtom · 18.10.2024, 22:50

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

дак и вопрос как прописать это в программе? Типо на одном компе это путь диск С\..., а ну другом компе путь это - рабочий стол\прога\расчет

Вот так можно получить путь до исполняемого файла:

Delphi
1
  Label1.Caption := ExtractFilePath(Application.ExeName);

А дальше добавляется имя нужного файла. Например, загрузка картинки, которая находится в той же папке, что и исполняемый файл программы:

Delphi
1
  Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Back.jpg');

@SeGun · 19.10.2024, 12:46

VVME, Я дал вам всё что нужно.
А как у вас с Delphi вообще?

@krapotkin · 19.10.2024, 16:53

Мне кажется автор хотел изначально просто узнать то, что написал AzAtom, в #27

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

@VVME 0 / 0 / 0 Регистрация: 13.08.2022 Сообщений: 93

	Как определить постоянное местоположение файла в программе для взятия из него исходных данных? 18.10.2024, 20:42. Показов 1375. Ответов 28 Метки данные, местоположение, файл (Все метки) Как привязать файл Excel для вывода из него данных в программу к определенному пути (файл проекта, типо папка расчеты). Причина вопроса в том, что на одном компе проект программы лежит в одном месте, а на другом компе в другом и программа не может прочитать файл Excel. Как сделать, чтобы программа всегда понимала где считывать нужный файл??? Помогите с решением данного вопроса пожалуйста 0

@VVME 0 / 0 / 0 Регистрация: 13.08.2022 Сообщений: 93
	18.10.2024, 21:49 [ТС]
	как программно написать это? поиск? Пример покажите пожалуйста 0

@SeGun 130 / 109 / 22 Регистрация: 23.05.2015 Сообщений: 726
	18.10.2024, 21:54
	Есть такой OpenFileDialog. Сейчас код поищу.. 0

@VVME 0 / 0 / 0 Регистрация: 13.08.2022 Сообщений: 93
	18.10.2024, 22:00 [ТС]
	OpenFileDialog.опять же это еще отдельный диалог- а автоматом то программно это сделать наверно тоже возможно 0

@udmurt2024 231 / 172 / 71 Регистрация: 14.06.2024 Сообщений: 472
	18.10.2024, 22:01
	путь к файлу передавать в параметре командной строки, если параметра нет, или по этому пути файла нет, то OpenFileDialog, ну и иметь его как доп опцию. 0

@SeGun 130 / 109 / 22 Регистрация: 23.05.2015 Сообщений: 726
	19.10.2024, 12:46
	VVME, Я дал вам всё что нужно. А как у вас с Delphi вообще? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	19.10.2024, 16:53
	Мне кажется автор хотел изначально просто узнать то, что написал AzAtom, в #27 0