Probleme mi TIniFile

[thepaul]

Hi,

ich wollte in ein Prog eine Speicherung von bestimmten Daten per Ini einbauen.

Dazu hab ich erstmal in Form.close folgendes getippt:

Delphi-Quellcode:

  with ini.Create(ParamStr(0)+'settings.ini')do
    try
      ini.WriteBool('output','checkb',checkbox1.Checked);
    finally
      ini.Free;
    end;
  end;

wenn ich das dann starte funzt noch alles. Beim Beenden gibts dann aberirgend nen Fehler:

Zitat:

Zugriffsverletzung bei 00403FF0 in Modul 'project.exe'. Schreiben von Adresse 000000000A

edit:/ich kann das,Prog dann nur noch über den Taskmanager ausschalten


Was hab ich da falsch gemacht?

mfg Paul


ps. Ich weiß nicht genau wo das hingehört! Bitte verschieben!

[mirage228]

Hi,

ini.Create(ParamStr(0)+'settings.ini') Diese Konstrutktion ist absolut falsch.

Es muss heißen:
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'settings.ini')

mfG
mirage228

Edit: ExtractFilePath() hinzugefügt.

[Tonic1024]

Hi

Delphi-Quellcode:

  
  INI:= TINIFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
  
  try
    INI.WriteBool('output','checkb',checkbox1.Checked);
  finally
    INI.Free;
  end;

Sollte es tun...

MfG

Tonic

[edit] Ich muss schneller tippen... [/edit]

[thepaul]

Erstmal Danke für die schnellen Antworten.

Das funktioniert immer noch nicht! Ich hab auch die ganze Procedur noch mal gelöscht. Da geht alles ohne Probleme. Wenn ich das dann aber wieder einsetzt geht nix mehr.

Was könnte denn noch falsch sein?

[Tonic1024]

Ich war zu voreilig... War noch ein fehler im Code von mir...

Hab mal aufgeräumt und den fehler beseitigt. So sollte er es aber tun...


MfG

Tonic

[thepaul]

Hey,

jetzt funzt!

ps. du hast noch nen Semikolon vergessen

[Tonic1024]

Jo, verfluchtes Copy'n'Paste

[choose]

Hallo Paul,

noch ein Tipp, der manchen Frust ersparen kann: Wenn Du das Objekt hinter Deine Variablen ini freigibst, verwende statt der Methode Free lieber die Prozedur FreeAndNil damit Du "ein paar Zeilen weiter unten" nicht versehentlich von einem gültigen Objekt ausgehst. Oder noch einfacher, wenn Du die Variable nirgendwo sonst benötigst (so wäre Dein Problem mit dem Konstruktor auch gar nicht erst entstanden), arbeite mit anonymen Referenzen in der Art

Delphi-Quellcode:

with TIniFile.Create(AFileName) do
try
  WriteBool(ASection, AnIdent, AValue);
finally
  Free;
end;

[thepaul]

nächstes Problem:

das auslesen. Ich habs eigentlich so gemacht wie hier im Tut.
nur ist die Checkbox jetzt immer so, wie das was ich als Wert reinschreibe

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var ini:tinifile;
begin
  ini:=tinifile.Create(ExtractFilePath(ParamStr(0)+'settings.ini'));

  try
    checkbox1.Checked:=ini.ReadBool('output','checkb',false);
  finally
    ini.Free;
  end;
end;

~> hier ist die checkbox immer leer.

[Matze]

Hast du etwas in der Ini stehen?