Вопрос № 116522: Здравствуйте уважаемые эксперты. Поздравляю вас с наступившим годом мыши! Подскажите пожалуйста, как в Delphi7 из OpenDialog получить имя файла без пути к нему. Спасибо....
Вопрос № 116.522
Здравствуйте уважаемые эксперты. Поздравляю вас с наступившим годом мыши! Подскажите пожалуйста, как в Delphi7 из OpenDialog получить имя файла без пути к нему. Спасибо.
Отправлен: 01.01.2008, 08:43
Вопрос задал: Nazarenko (статус: Посетитель)
Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Raptor3
Здравствуйте, Nazarenko!
Вот один из вариантов
ExtractFileName(opendialog1.FileName);
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 3-ий класс)
Ответ отправлен: 01.01.2008, 09:19 Оценка за ответ: 5 Комментарий оценки: Спасибо
Отвечает: Esi
Здравствуйте, Nazarenko!
есть такая функция ExtractFileName.
Ответ отправил: Esi (статус: 2-ой класс)
Ответ отправлен: 01.01.2008, 09:49 Оценка за ответ: 5 Комментарий оценки: Спасибо
Отвечает: Selya
Здравствуйте, Nazarenko! FileName := ExtractFileName(OpenDialog1.FileName); В FileName получится из C:Projects est.txt -> test.txt
Ответ отправил: Selya (статус: 3-ий класс)
Ответ отправлен: 01.01.2008, 12:35 Оценка за ответ: 5 Комментарий оценки: Спасибо
Отвечает: -=Dr. Штопор=-
Здравствуйте, Nazarenko!
Я бы использовал свой код. Не знаю, насколько он конкурентоспособен по сравнению с кодом из ответов предыдущих экспертов. Код в приложении. var s:string;
Приложение:
--------- Tantum possumus, quantum scimus
Ответ отправил: -=Dr. Штопор=- (статус: 5-ый класс)
Ответ отправлен: 01.01.2008, 21:30 Оценка за ответ: 5 Комментарий оценки: Спасибо
Отвечает: Сычёв Павел Алексеевич
Здравствуйте, Nazarenko!
Вас тоже с наступившим!
А делается просто. Пусть
od:TOpenDialog;
s:string
if od.Execute then //проверяем, выбрал ли пользователь что-нибудь в окне OpenDialog
begin
s:=ExtractFileName(od.FileName);
... // делаем дальше всё что надо
end;
Ответ отправил: Сычёв Павел Алексеевич (статус: 2-ой класс)
Ответ отправлен: 01.01.2008, 22:12 Оценка за ответ: 5 Комментарий оценки: Спасибо
Отвечает: Genia007
Здравствуйте, Nazarenko! Получить имя файла без пути к неву s:=ExtractFileName(OpenDialod.Dialog.Filename).
Ответ отправил: Genia007 (статус: 3-ий класс)
Ответ отправлен: 05.01.2008, 15:00