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;