Wert von ini Datei lesen und wenn nicht vorhanden dann Exit

[Fussball-Robby]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyIniFile : TInifile;
begin
if FileExists('MyIniFile3.ini') then
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini');
Edit1.Text := MyIniFile.ReadString('Section1','text1','nicht gefunden')
end
else
begin
//close;
ShowMessage('nicht gefunden ');
MyIniFile.Free;
end;

Was ist das denn? Wenn die Datei existiert, erstellst du die IniFile, wenn sie nicht existiert, gibtst du sie frei? Außerdem solltest du dir angewöhnen, den Code einzurücken:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIniFile: TInifile;
  FName: String;
begin
  FName := ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini';
  if FileExists(FName) then
  begin
    MyIniFile := TIniFile.Create(FName);
    try
      Edit1.Text := MyIniFile.ReadString('Section1', 'text1', 'nicht gefunden')
    finally
      MyIniFile.Free;
    end;
  end
  else
  begin
    //close;
    ShowMessage('nicht gefunden ');
  end;
end;