[Was ist das?] Ini-Datei ist nicht da - oder doch???

[Daniel B]

Du arbeitest da mit dem ganzen Create, with TIni.Create.Free @_@

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini : TIniFiles;
begin
  Ini := TIniFile.Create();
  with Ini do
  begin
    try
      WriteString('Hallo','Test','Was ist das?');
    finally
      FreeAndNil(Ini);
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Ini : TIniFiles;
begin
  Ini := TIniFile.Create();
  with Ini do
  begin
    try
      ShowMessage(ReadString('Hallo','Test','leer')+#13#10+'Hier ist die Datei: '+FileName);
    finally
      FreeAndNil(Ini);
    end;
  end;
end;