How to load files from application subdirectory?

[stem]

Hi,

I have a Lazarus application that loads files that are stored in
the directory "extra" which is a subdirectory of the application directory.

This line works in Windows as well as in Linux:

Code: Pascal  [Select][+][-]

1. dir := ExtractFileDir(Application.Exename) + DirectorySeparator + 'extra';

How can I adjust the code so that it also works with MacOS?

Thank you! 

stem

[wp]

Code: Text  [Select][+][-]

1. dir := Application.Location + 'extra';

[winni]

Hi

For all OS:

Code: Pascal  [Select][+][-]

1. dir := Application.Location;
2. if dir[length(dir)]  <> DirectorySeparator then dir := dir +  DirectorySeparator;
3. dir := dir +'extra';
4.  

Winni

[ezlage]

Take a look here: https://www.freepascal.org/docs-html/rtl/sysutils/includetrailingpathdelimiter.html