Работа с относительными путями

[Oburec]

Есть вьювер 3дсцены. при закрытии происходит сохранение настроек в файл путь к которому прописан как относительный .\someFolder\SomeFile.cfg
Все нормально работает в случае если в процессе работы приложения не происходило сохранение сцены в файл. Если сохранение вызывалось, то функция fileExists(.\someFolder\SomeFile.cf g) возвращает false, хотя файл на месте.
Есть подозрение, что если вызывалось сохранение в какой либо файл, то текущим (.\) становится тот каталог куда сохранил.
Вопрос: как определить куда ссылается вот такой путь .\?

[Пепел Феникса]

попробуй делать так:

filePath:=ExtractFilePath(application.ExeName)+<твой путь>

[Kotofff]

Вопрос: как определить куда ссылается вот такой путь .\?

.\ - ошибка. Правильно так : ..\ - в пути к файлу или папке означает, что он на один уровень вверх в иерархии каталогов, т.е. выражение 'someFolder\SomeFile.cfg' будет означать что каталог someFolder и его содержимое находится в одном каталоге с твоей программой, а '..\someFolder\SomeFile.cfg' - каталог someFolder и его содержимое находится в одном каталоге, что и каталог с программой, т.е. на один уровень выше от самого файла твоей программы.

[pu4koff]

Почему это ошибка? .\ - это относительный путь к корню диска, т.е. сохраняем на тот же логический диск

[Oburec]

Сообщение от Пепел Феникса

попробуй делать так:

filePath:=ExtractFilePath(application.ExeName)+<твой путь>

а если я буду использовать свой код в компоненте, где никакой application и в помине не создается?

Сообщение от Kotofff

.\ - ошибка. Правильно так ...

Да нет никакой ошибки. .\ - текущий каталог. Реально оказалось, что он действительно сбивается после записи файла. При запуске приложения текущий каталог равен пути к экзешнику, после записи - каталогу с сохраняемым файлом. Кстати вернуть его обратно можно с помощью функции SetCurrentDir(somePath:string)
А вот функция (вдруг кому-нить понадобится), которая преобразует относительный путь в полный.

function GetFullPath(shortName:string):string;
var
  fullpath:pansichar;
  buffer:string;
  i:integer;
  ch:char;
begin
  setlength(buffer,255);
  GetFullPathName(@shortname[1],255,@Buffer[1],fullpath);
  ch:=char(0);
  i:=pos(ch,buffer);
  setlength(buffer,i-1);
  result:=buffer;
end;

Ну и тоже на всякий случай(если кому понадобится) вторая функция, которая находит файл с заданым именем и возвращает путь к нему. Параметры - стартовая директория, имя файла и глубина поиска (на сколько каталогов в процессе поиска программа углубится).

// Dir - стартовая директория; name - имя файла; deep - глубина поиска
// Возвращает путь к найденому файлу
function FindFile(name:string;dir:string;var deep:integer):string;
var sr:tSearchRec;
    fullpath,res:string;
    findres:integer;
begin
  // Поиск файла в текущем каталоге
  fullpath:=Dir + name;
  if FindFirst(fullpath, faAnyFile, SR) = 0 then
  begin
    result:=fullpath;
    exit;
  end
  else // Если не найден, то ищем в других каталогах
  begin
    if deep<>0 then
    begin
      findres:=FindFirst(Dir+'*', faDirectory, sr);
      if findres = 0 then
      begin
        // Ограничиваем поиск по глубине
        if deep<>0 then
        begin
        while findres=0 do
          begin
            if (sr.name='.') or (sr.name='..')or (not(sr.Attr = faDirectory)) then
            begin
              FindRes:=FindNext(SR); // продолжить поиск
              continue;
            end;
            dec(deep);
            res:=findfile(name,dir+sr.Name+'\',deep);
            if res <>'' then
            begin
              inc(deep);
              result:=res;
              exit;
            end
            else
              findres:=FindNext(sr);
          end
        end;
      end;
    end;
  end;
  inc(deep);
  FindClose(sr);
end;

[Пепел Феникса]

Сообщение от Oburec

а если я буду использовать свой код в компоненте, где никакой application и в помине не создается?

Application у тебя есть, ты же приложение запускаешь
TApplication, класс который характеризует приложение

[Oburec]

Сообщение от Пепел Феникса

Application у тебя есть, ты же приложение запускаешь
TApplication, класс который характеризует приложение

в дезайн тайме например TApplication не создается. Не совсем универсальный метод.

[pu4koff]

Сообщение от Oburec

в дезайн тайме например TApplication не создается. Не совсем универсальный метод.

В дезайн тайме и приложения вашего нет, так что непонятно путь до чего в дезайн тайме вы искать собрались

[Oburec]

Сообщение от pu4koff

В дезайн тайме и приложения вашего нет, так что непонятно путь до чего в дезайн тайме вы искать собрались

В дезайн тайме .\ означает путь к проекту, хотя exe-ика еще конечно нету. Искать собрался ресурсы компонента.

[Пепел Феникса]

ExtractFilePath(application.ExeName ), аналогично
но в отличие от вашего метода не зависит от текущей папки(она меняется после некоторых действий, если кто не знает)