Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → OpenDialog у делфі
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Доброго вечора
У мене ось яка проблема. Мені потрібно записати назву файлу в поле Edit
я скористався функцією ExtractFileName
та написав такий код:
if OpenDialog1.Execute then
begin
Edit1.Text:=ExtractFileName(OpenDialog1.FileName);
end;Проблема в тому що в поле записується назва файлу і розширення файлу, а мені просто потрібно вписати саму назву файлу без розширення.
Підкажіть що робити, буду щиро вдячний.
Зайти в довідку і знайти потрібну функцію: http://docwiki.embarcadero.com/RADStudi … n_Routines
Я ще підкажу: є функція для зміни розширення. Передаєте їй пустий рядок і отримуєте назву без розширення.
переглянув:
ExtractFileDir - можна записати диск
ExtractFileDrive - шлях до каталогу
ExtractFileExt - розширення файлу
ExtractFileName - ім'я + розширення
ExtractFilePath - шлях до файлу
та на жаль щоби записати саме ім'я файлу без розширення там не має
зате багато іншого знайшов тому щиро вам дякую що підказали де шукати.
Я ще підкажу: є функція для зміни розширення. Передаєте їй пустий рядок і отримуєте назву без розширення.
Напевно це вона : ChangeFileExt
Попробував:
if OpenDialog1.Execute then
begin
Edit1.Text:=GetFileNameWithoutExtension(OpenDialog1.FileName);
end;При компіляції випливає помилка (Трееій рядок):
[Ошибка] RiderBase_U.pas(639): Undeclared identifier: 'GetFileNameWithoutExtension'
Телепатично здогадуюсь, що у вас застара Delphi.
Тоді шукайте останню крапку ручками (Pos) і видаляйте все від неї і до кінця.
Напевно це вона : ChangeFileExt
Саме її і мав на увазі.
Чудова знахідка 
Попробував:
if OpenDialog1.Execute then begin Edit1.Text:=GetFileNameWithoutExtension(OpenDialog1.FileName); end;При компіляції випливає помилка (Трееій рядок):
[Ошибка] RiderBase_U.pas(639): Undeclared identifier: 'GetFileNameWithoutExtension'
Це класова функція, тому її треба отак юзати:
Edit1.Text := TPath.GetFileNameWithoutExtension(OpenDialog1.FileName);І в юзес має бути юніт IOUtils. Це все якщо у вас Delphi XE2 або новіша.
Всім щиро вдячний за допомогу.
Проблема вирішена ось так:
TitleFile_Ed.Text :=ChangeFileExt(ExtractFileName(ModulA_DMd.OpenDialog1.FileName), '');Це також хороше рішення, але делфі-7 застаріла і його не підтримує:
Edit1.Text := TPath.GetFileNameWithoutExtension(OpenDialog1.FileName);
Скажіть будь ласка - а у чому сенс користуватися IDE яка застаріла вже 15 років тому? От мені просто цікаво? Ви не вивчаєте алгоритми (а делфя - це найгірше що можна придумати). Ви відпрацьовуєте для себе поганий стиль кодування (делфі та дебілдер - це найкраще для цього) - поясніть будь ласка навіщо? Тим більше що на сайті компанії можна завантажити бескоштовну версію сучасного компілятора. (і так - я за весь свій стаж як розробник, а це більше двадцяти років, я починав працювати в хакерских командах ще за царя панька, я АЖ ТРИЧИ зустрічав вимогу у вакансіях - "знання Delphi/BCB" - але у розділі "бажано"). У чому сенс?
varkon
В школі вчили Паскаль.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися