- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
function TFilesStrings.LastSlash(FileString: string): byte;
{*
Функция для вычисления положения последнего слеша в строке
*}
var
i: byte;
begin
Result := 0;
for i := 1 to Length(FileString) do
if (FileString[i] = #92) then Result := i;
end;
{==============================================================================}
{******************************************************************************}
function TFilesStrings.GetPath(FullFileName: string): string;
{*
Функция возвращает оконечный путь у заданному Файлу
*}
var
SlNum: byte;
begin
Result := '';
SlN um := LastSlash(FullFileName);
Result := Copy(FullFileName, 1, SlNum);
end;
Вот ещё вспомнил... Не мог понять почему у меня не работает функция ExtractFilePath, пришлось писать вручную :)
TarasB 25.11.2009 20:53 # +2
Только последний слэш с конца искать надо, а не с начала.
KiTE 12.01.2010 07:51 # +2