Как отказаться от абсолютных путей?

Question

[Алексей Юдов]

Здравствуйте, уважаемые.
Пишу программу - тест на знание "Чего-то там".
И вот храню файлы, из которых беру полный ответ на вопрос, в формате .txt
Указываю к ним абсолютный путь.
А как найти нужный файл, не используя абсолютный путь?

Answer 1

[Сергей delphinpro]

// Создаем свойство в форме

private
  AppPath: string;

// при создании вычисляем его

procedure TfmMain.FormCreate(Sender: TObject);
begin
  AppPath := ExtractFilePath(Application.ExeName);
  //…

// потом используем
  DBName := AppPath + '\' + 'base.sqlite';

Answer 2

[Saboteur]

Использовать относительный путь.
Либо использовать переменную/конфиг с чем-то типа $MY_APP_HOME, которая указывает на папку с вашей программой. Настраивается один раз при установке и затем что-то типа $MY_APP_HOME/answers/*.txt