How to get rid of absolute paths?

Question

Delphi

Hello dear.
I am writing a program - a test for knowledge of "Something there".
And now I store the files from which I take the full answer to the question, in the .txt format . I specify
the absolute path to them.
But how to find the desired file without using an absolute path?

Answer 1

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

private
  AppPath: string;

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

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

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

Answer 2

Use relative path.
Or use a variable/config with something like $MY_APP_HOME, which points to the folder with your program. Configured once during installation and then something like $MY_APP_HOME/answers/*.txt