Et dir problem

Du beder brugeren om at konfigurere ved installation, og skriver
svaret i en ini-fil eller i registreringsdatabasen, som dit program så
efterfølgende kigger i.

Læg databasen i samme mappe som dit program, og bed alle om at gøre det samme. Så kan du bruge Application.ExeName, som du jo kender.

Hvis databasen skal kunne ligge overalt på harddisken, så skal du søge hele harddisken igennem hver gang programmet startes. Du kan jo prøve at bruge Windows' filsøgefunktion, og søge efter test.mdb i C:\ og alle undermapper, og så prøve at se hvornår den er færdig med at lede. Husk at filen lige så godt kan bive fundet til sidst...

Tak for din tillid, men nej kender ikke Application.Exename eller hvad det er for noget.
Jeg sidder og fedter med noget det kommer til at ligne det her :
var
path :String;
filename : string;
filename := min.mdb

filename := path + '\filename';

eller sådan noget ligende
Der er også noget i bogen :
path := PChar(path);
det ved jeg ikke hvad er ?
VH
SpørgerJørgen

koden12-> Den metode, athlon-pascal snakker om, er den du skrev i spørgsmålet. Følgende kode gør, at strengen FileName kommer til at pege på filen c:\sti\til\mitprogram\min.mdb
(hvor "c:\sti\til\mitprogram" er stien til dit program)

var
  Dir, FileName: String;
begin
  Dir := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)); //Læg stien til mit program i "Dir"
  FileName := Dir + 'min.mdb'; //Læg stien til mit program plus filnavnet i "FileName"

  //... brug FileName til et eller andet...:
  ShowMessage(FileName);
end;

Med denne metode behøver du blot sikre dig, at filen ligger i samme bibliotek som dit program (din exe-fil)

Waw tak det var lige hvad jeg manglede.
Der er godt nok mange nye navne som :
ExtractFilePath og IncludeTrailingBackslach.
VH
SpørgerJørgen

Hvor giver jeg point ?

Da vi alle har kommenteret indtil nu, skal vi lægge et svar, før du kan give os point.

ExtractFilePath trækker filnavnet fra, så du kun får stien.
IncludeTrailingBackslach sikrer at der er en \ til sidst.
Held og lykke :-)

if Dir[Length(Dir)] <> '\' then Dir := Dir + '\';
er faktisk det samme som IncludeTrailingBackslash(Dir); :-)

Yeps

Og tror i måske lige jeg har gemt den eller hva :)
Tak
SprøgerJørgen