[delphi] Beginnersprobleem met openen bestand

[BM]

goedemiddag,

ik ben nu bezig met een programma'tje, maar ik zit met het volgende probleem.
Zodra dit programma gestart word moet ie een locatie (gewone string) uit een bestand halen. Ik wil geen absoluut path gebruiken, dit omdat het progje gewoon moet blijvenw erken als ik het hele zaakie verplaats. Het bestand (loc.ini) staat in dezelfde map als de exe (maak geen gebruik van submappen), maar werken wil het niet echt.
Ik heb nu de volgende code:

code:

procedure TForm1.FormCreate(Sender: TObject);
var path:string;
IniFile: TIniFile;
begin
  path:='';
  IniFile:=TIniFile.Create('loc.ini');
  Path:=IniFile.ReadString('location', 'loc', path);
  label1.caption:=path;
end;

Nu neem ik aan dat er hier mensen zijn die wel weten hoe ik zo'n bestand open
Als ik het gewoon geopend krijg lukt het verder wel weer denk ik, aangezien schrijven en lezen wel lukt, zodra ik het bestand geopend heb.

Tnx in advance

[jelmervos]

Achterhaal eerst de pad van de Exe:
ExtractFileFromPath(ParamStr(0));
of
ExtractFileFromPath(Application.ExeName); (ofzo)

Plak daar achter aan die loc.ini en open die.

Verder is die code hierboven niet echt 100 punten, dit zou beter zijn en voorkomt een memleak:

code:

procedure TForm1.FormCreate(Sender: TObject);
var path, exedir:string;
IniFile: TIniFile;
begin
  exedir := ExtractFileFromPath(ParamStr(0));
  path:='';
  IniFile:=TIniFile.Create(exedir + 'loc.ini');
  try
    Path:=IniFile.ReadString('location', 'loc', path);
    label1.caption:=path;
  finally
    IniFile.Free;
  end;
end;

[Delpix]

EDIT...

Jelmervos was eerder....

[freddifish]

damn die application.exename wilde ik ook noemen...

[BM]

tnx mensen, heb nu ff geen delphi bij de hand, maar zal zsm laten weten op het werkte

[BM]

ExtractFileFromPath moest ExtractFilePath worden, maar nu werkt het, tnx mensen

[jelmervos]

Op vrijdag 18 januari 2002 19:05 schreef SpeedAddict het volgende:
ExtractFileFromPath moest ExtractFilePath worden, maar nu werkt het, tnx mensen

Och ja, ik had ook even geen Delphi draaien. Maar het is dus gelukt. Mooi.

[FendtVario]

Nog een manier is dit:

code:

IniFile:=TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));