[GELÖST] ini Datei schreiben

[kalvo11]

Habe folgenden Text geschrieben.
Warum bekomme ich bei so etwas eine Exception/Error oder sonst was?
Ich schreibe nicht mal eine Variable in die ini.
Einfach 3 Strings in eine leere ini Datei.

Code: Alles auswählen

procedure TFormGastneu.btnApplyClick(Sender: TObject);
begin
  try
    GastNeuNr:=1;
    FormGaeste.iniConnect;
    FormGaeste.ini.WriteString('Hallo', 'Bye', 'Moin');
    FormGaeste.ini.WriteInteger('Section', 'GastNummer', 2);
  finally
    FormGaeste.ini.Free;
    end;
 
  Close;
end;     

Der Fehler kommt bei dem

Code: Alles auswählen

FormGaeste.ini.WriteString('Hallo', 'Bye', 'Moin');

Woran liegt das?
Danach hält das Programm an und lässt sich auch nicht mehr fortsetzen...

[theo]

Createst du "ini" auch irgendwo?
Freigeben tust du es ja, mit ini.free.

[kalvo11]

Createst du "ini" auch irgendwo?
Freigeben tust du es ja, mit ini.free.

Ja, hier in einer anderen Unit

Code: Alles auswählen

procedure TFormGaeste.iniConnect;
var
  Dateiname: String;
begin
  try
    Dateiname := ExtractFilePath(ParamStr(0)) + 'DatenBankGaeste.ini';
    ini := TIniFile.Create(Dateiname);
  finally
    ini.Free;
  end;
end;    

Und diese Prozedur rufe ich nochmal auf bevor ich in die ini schreibe (Siehe Haupt-Post)

[theo]

"finally" wird immer durchalufen. Du gibst das eben erstellte Objekt sogleich wieder frei.

[kalvo11]

"finally" wird immer durchalufen. Du gibst das eben erstellte Objekt sogleich wieder frei.

Hätte ich selber drauf kommen sollen... Danke!