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

Михаил Юрьевич · 29.03.2009, 13:31

Подскажите как програмно сократить путь.
Например , путь C:\Program Files\Borland\Delphi7\Bin\ws32.exe
А нужно что бы в переменную записалось не весь путь,а только исполняемый файл ws32.exe
Соответственно пути будут разной длины,а нужен только исполняемый файл

]Wowan[ · 29.03.2009, 13:33

Бери в цикле все буквы с конца пока не наткнешься на \

Terran · 29.03.2009, 13:33

Можете сделать так:

Код:

Procedure TForm1.Button2Click(Sender: TObject);
Begin
Edit1.Text:=ExtractFileName('C:\Program Files\Borland\Delphi7\Bin\ws32.exe');
End;

Михаил Юрьевич · 29.03.2009, 13:59

спасибо большое,тема закрыта

29.03.2009, 13:31	#1
Михаил Юрьевич Форумчанин Регистрация: 25.12.2007 Сообщений: 661	Сократить путь до файла Подскажите как програмно сократить путь. Например , путь C:\Program Files\Borland\Delphi7\Bin\ws32.exe А нужно что бы в переменную записалось не весь путь,а только исполняемый файл ws32.exe Соответственно пути будут разной длины,а нужен только исполняемый файл За частые поиски был забанен во всех известных поисковых системах!

29.03.2009, 13:33	#2
]Wowan[ Delphi forever Форумчанин Регистрация: 13.01.2009 Сообщений: 113	Бери в цикле все буквы с конца пока не наткнешься на \ Программы на заказ Delphi, Pascal. ася: 415 253 529. Мыло: wowan141750@gmail.com.

29.03.2009, 13:33	#3
Terran Участник клуба Регистрация: 28.11.2007 Сообщений: 1,521	Можете сделать так: Код: `Procedure TForm1.Button2Click(Sender: TObject); Begin Edit1.Text:=ExtractFileName('C:\Program Files\Borland\Delphi7\Bin\ws32.exe'); End;` Всегда рад помочь!

29.03.2009, 13:59	#4
Михаил Юрьевич Форумчанин Регистрация: 25.12.2007 Сообщений: 661	спасибо большое,тема закрыта За частые поиски был забанен во всех известных поисковых системах!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как можно сократить код	jocry	Общие вопросы Delphi	2	20.01.2009 08:35
Путь	StartMis	Общие вопросы Delphi	3	03.10.2008 14:45
Как отсечь имя файла и получить путь только к нему?	Dux	Общие вопросы Delphi	8	25.05.2008 20:24
Как сократить время? МАКРОС!	jungo	Microsoft Office Excel	17	01.05.2008 12:13