| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IncludeTrailingBackslash [D5, WinXP]
GanibalLector © (2004-11-26 23:04:00)Читаю чужой исходник.Так вот,вижу следующее
IncludeTrailingBackslash(ExtractFilePath(ParamStr(0))) + 'WinDraught.lib'
А теперь,собственно,вопрос:а на кой использовать IncludeTrailingBackslash если ExtractFilePath(ParamStr(0)) и так вернее в конце '\'?
Defunct (2004-11-27 07:12:00) [1]GuAV © (27.11.04 03:19) [9]
Хотел было запостить про исключение, но полез в более интересную для меня ветку.
GuAV (2004-11-27 03:19:00) [2]Defunct © (27.11.04 2:33) [8]
ExctractFileDir наоборот всегда гарантирует отсутствие завершаюшего слеша.
неправда.
ShowMessage(ExtractFileDir('D:\project2.exe'));
В сообщении будет строка 'D:\'
Defunct (2004-11-27 02:33:00) [3]Игорь Шевченко © (27.11.04 01:33) [5]
ExtractFilePath
всегда гарантируется завершаюший слеш
ибо здесь:
Copy(FileName, 1, I);
он уже Included.
ExctractFileDir наоборот всегда гарантирует отсутствие завершаюшего слеша.
GuAV (2004-11-27 01:47:00) [4]Игорь Шевченко © (27.11.04 1:33) [5]
То есть, ты гарантируешь, что ExtractFilePath(ParamStr(0)) всегда будет возвращать строку с \ на конце ?
Да. Я считаю что что в случае наличия полного пути к файлу в качестве параметра, что имеем в случае с ParamStr(0) резулдьтатом быдет путь к папке с \ в конце.
Разумеется ExtractFilePath вернёт пустую строку если нет ни PathDelim ни DriveDelim.
GanibalLector (2004-11-27 01:44:00) [5]2 Игорь Шевченко
Ну да,вроде всегда возвращает...
Игорь Шевченко (2004-11-27 01:33:00) [6]GuAV © (26.11.04 23:52) [1]
То есть, ты гарантируешь, что ExtractFilePath(ParamStr(0)) всегда будет возвращать строку с \ на конце ?
function ExtractFilePath(const FileName: string): string;
var
I: Integer;
begin
I := LastDelimiter(PathDelim + DriveDelim, FileName);
Result := Copy(FileName, 1, I);
end;
GanibalLector (2004-11-27 00:04:00) [7]Удалено модератором
Примечание: Offtopic
GuAV (2004-11-27 00:01:00) [8]Удалено модератором
Примечание: Offtopic
GanibalLector (2004-11-26 23:58:00) [9]Удалено модератором
Примечание: Offtopic
GuAV (2004-11-26 23:52:00) [10]GanibalLector © (26.11.04 23:04)
Таки не нужен. Таки не догнал этого автор исходника.
| |
