Получить путь и открыть файл - Общие вопросы Delphi

casio23 · 05.06.2011, 17:02

Помогите кто знает как получить путь к файлу и открыть его, если известно только расширение!?
*.txt

garyanikin · 05.06.2011, 17:33

Первая ссылка из гугла
Запрос: найти файл *.txt delphi.

ZvEr_HaCkEr · 05.06.2011, 17:36

Поиск по маске.

casio23 · 05.06.2011, 18:57

Цитата:

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

Поиск по маске.

мне не нужно искать файл!!!!!! мне нужно его открыть
ListBox1.LoadFromFile(ExtractFilePa th(Application.ExeName)+'data\'назв ание'+'.ahf')
а вот название может быть любое

Serge_Bliznykov · 06.06.2011, 09:43

ну так открывайте.
Приведённым Вами кодом!
Вместо 'назв ание'+'.AHF'
пишите имя вашего TXT файла:

Код:

ListBox1.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\ТУТИМЯВАШЕГОФАЙЛА.TXT');

p.s. А если у Вас нет имени файла, то как программа должна его узнать?!

Sparkman · 06.06.2011, 09:51

Код:

var s:TSearchRec;
begin
     if FindFirst(ExtractFilePath(Application.ExeName)+'data\*.txt',faAnyFile,s)=0 then ListBox1.LoadFromFile(s.Name);
end;

Serge_Bliznykov · 06.06.2011, 10:59

Sparkman, Ваш код откроет ЛЮБОЙ (первый попавшийся) текстовый файл.
Вы уверены, что автору топика именно так нужно?

Sparkman · 06.06.2011, 11:05

Serge_Bliznykov я так понял, топик стартеру все равно какой файл открыть, лишь бы текстовый.

05.06.2011, 17:02	#1
casio23 Форумчанин Регистрация: 29.12.2010 Сообщений: 186	Получить путь и открыть файл Помогите кто знает как получить путь к файлу и открыть его, если известно только расширение!? *.txt

06.06.2011, 09:43	#5
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	ну так открывайте. Приведённым Вами кодом! Вместо 'назв ание'+'.AHF' пишите имя вашего TXT файла: Код: `ListBox1.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\ТУТИМЯВАШЕГОФАЙЛА.TXT');` p.s. А если у Вас нет имени файла, то как программа должна его узнать?!

06.06.2011, 09:51	#6
Sparkman 220400 Форумчанин Регистрация: 21.05.2010 Сообщений: 726	Код: `var s:TSearchRec; begin if FindFirst(ExtractFilePath(Application.ExeName)+'data\*.txt',faAnyFile,s)=0 then ListBox1.LoadFromFile(s.Name); end;` Cерьёзной помощи не ждите - помогаю в перерывах на "перекур". Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель.

06.06.2011, 11:05	#8
Sparkman 220400 Форумчанин Регистрация: 21.05.2010 Сообщений: 726	Serge_Bliznykov я так понял, топик стартеру все равно какой файл открыть, лишь бы текстовый. Cерьёзной помощи не ждите - помогаю в перерывах на "перекур". Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как получить путь к файлу	Manya	Общие вопросы Delphi	5	22.05.2012 16:12
Получить путь к файлу	Shouldercannon	Общие вопросы Delphi	2	11.09.2010 09:39
WinForms Получить путь к файлу	Eros	Windows Forms	2	27.05.2010 12:25
FileT - как открыть файл txt для чтения, и где указывается путь	Leshiy1	Общие вопросы C/C++	7	09.04.2010 21:22
Как получить путь к БД	XPAiN	БД в Delphi	2	08.11.2007 08:51

05.06.2011, 17:33	#2
garyanikin Дизайнер, Кодер. Пользователь Регистрация: 31.12.2009 Сообщений: 45	Первая ссылка из гугла Запрос: найти файл *.txt delphi.

05.06.2011, 17:36	#3
ZvEr_HaCkEr VisualC++/DirectX Форумчанин Регистрация: 16.07.2010 Сообщений: 831	Поиск по маске.

06.06.2011, 10:59	#7
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Sparkman, Ваш код откроет ЛЮБОЙ (первый попавшийся) текстовый файл. Вы уверены, что автору топика именно так нужно?