Ini-Datei wird nicht mehr gelesen

[Ginko]

Hallo,
ich habe ein Problem, dass ich mir nicht erklären kann.
Ich öffne in einen Porgramm über ein OpenDialog eine Textdatei und lese diese in ein Memofeld ein, daraufhin ist es nicht mehr möglich über einen anderen Button einen Wert aus einer Ini-Datei zu lesen.
Wird der OpenDialog nicht benutzt, ist das Arbeiten mit der Ini-Datei problemlos möglich.
Hier der Quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Settings: TIniFile;
  tmp1: String;
begin
  Settings := TIniFile.Create(GetCurrentDir + '\set.ini');
  try
    tmp1 := Settings.ReadString('Set1','name','nix');
    Edit1.Text := tmp1;
  finally
    Settings.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  F: TextFile;
  Dateiname,tmp1: String;
begin
  OpenDialog1.Filter := 'Textdatei(*.txt)|*.txt';

  if not OpenDialog1.Execute then exit;
  Dateiname := OpenDialog1.FileName;
  AssignFile(F, Dateiname); 
  Reset(F);
  while not Eof(F) do
  begin
    Readln(F, tmp1);                      
    Memo1.Lines.Add(tmp1);
  end;
  CloseFile(F);
end;

[jfheins]

Delphi-Quellcode:

  Settings := TIniFile.Create(GetCurrentDir + '\set.ini')

;
Ja neee, ist schon komisch bei so nem "absoluten" Pfad :stupid:

GetCurrentDir liefert das aktuelle Arbeitsverzeichnis. Das wird durch den OpenDialog verändert. Bist du sicher dass die ini Datei dort liegt?
Nein? Dann solltest du richtige absolute Pfade benutzen ;)

[Ginko]

Danke für die schnelle Antwort, das hier scheint zu gehen.

Delphi-Quellcode:

 Settings := TIniFile.Create( extractfiledir(paramstr(0)) + '\set.ini')  ;

[mkinzler]

Ermittelt auch das Verzeichnis, in dem die Exe liegt und nicht das aktuelle Arbeitsverzeichnis

[Matze]

Zitat:

Zitat von mkinzler (Beitrag 1037329)

Ermittelt auch das Verzeichnis, in dem die Exe liegt und nicht das aktuelle Arbeitsverzeichnis

Meinst du nicht, dass er genau das möchte? So habe ich es verstanden, also

Delphi-Quellcode:

Settings := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'set.ini');

Damit das Verzeichnis (= Verzeichnis, in dem die Exe liegt) gleich bleibt, auch wenn der OpenDialog verwendet wird.

Wo liegt denn die Ini-Datei? Im Verzeichnis deiner Exe?

[mkinzler]

Ja, das will er. Ich wollte ihn damit ja sagen, warum das richtig ist und der ursprüngliche Code nicht

[Ginko]

Stimmt alles einwandfrei, danke euch, so schnell hat man wieder was gelernt, ich dachte schon jetzt habe ich endlich einen Compilerfehler gefunden....:lol: