Ini Files

[k4ni]

Hallo habe eine kleine frage.
Ich habe bei Form1Create das hier drin stehen:

Delphi-Quellcode:

   
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Options.ini');

   if Ini.ValueExists('GameButtons', 'HowMany') = false then
  Ini.WriteString('GameButtons', 'HowMany', '9 Buttons');
 Form2.ComboBOx1.Text:= Ini.ReadString('GameButtons', 'HowMany', 'asdf');

Doch er gibt mir immer Acces violations beim starten, wieso ?

[Assertor]

Hi k4ni,

Zitat:

Zitat von k4ni

Ich habe bei Form1Create das hier drin stehen:...

Delphi-Quellcode:

   
 Form2. ...

Genau deswegen. Form2 wird nach Form1 erst erzeugt, ein Zugriff ist hier also noch nicht möglich.

Btw: Machst Du später für das WriteString auch ein UpdateFile? Sonst wunderst Du dich, warum sich nichts in der INI ändert.

Gruß winkel79

[patti]

Mache das nicht im Create von Form 1, sondern eher beim Show von Form1. Beim Createn von Form 1 gibts noch kein Form 2, deswegen kommt es zur AV ;-)

P@Tti

[k4ni]

Zitat:

Zitat von winkel79

Hi k4ni,

Zitat:

Zitat von k4ni

Ich habe bei Form1Create das hier drin stehen:...

Delphi-Quellcode:

   
 Form2. ...

Genau deswegen. Form2 wird nach Form1 erst erzeugt, ein Zugriff ist hier also noch nicht möglich.

Btw: Machst Du später für das WriteString auch ein UpdateFile? Sonst wunderst Du dich, warum sich nichts in der INI ändert.

Gruß winkel79

ahja ok danke! Hab mich schon gewundert.
Ehm ich weis jetzt nicht ganz was du mit UpdateFile meinst, aber bei mir läuft der rest perfekt.

[Nuclear-Ping]

if-Abfragen, ob ein Eintrag in der Ini existiert kann man sich eigentlich sparen, da man einen Standardwert angeben kann, der genommen wird, wenn der Eintrag nicht existiert.
Alt:

Delphi-Quellcode:

if Ini.ValueExists('GameButtons', 'HowMany') = false then
  Ini.WriteString('GameButtons', 'HowMany', '9 Buttons');

Neu:

Delphi-Quellcode:

var
  DeineZielVariable: String;

//...

  DeineZielVariable := Ini.ReadString('GameButtons', 'HowMany', '9 Buttons');

[Matze]

Hallo,

noch ein paar Anmerkungen zu deinem Code, damit du's in Zukunft besser machen kannst. ;)

Überprüfe nie auf "= false". Wieso?.
Des weiteren nutze Resourcenschutzblöcke, damit der Speicher auch im Fehlerfall wieder freigegeben wird:

Delphi-Quellcode:

Ini := TIniFile.Create(...);
try
  // Ini-Operationen
finally
  FreeAndNil(Ini);
end;

Gruß

[Nuclear-Ping]

[OT]

Zitat:

Zitat von Brüggendiek

... die Variable ist bei <>0 möglicherweise weder true noch false! ...

Dazu fällt mir ein:

Delphi-Quellcode:

type
  TFemaleBool = (True, False, Maybe)

:mrgreen:
[/OT]

[grenzgaenger]

tzz, tzzz

Delphi-Quellcode:

0 --> false  && !0 --> true

von daher gibts eigentlich keinen zwitter ;-)

[Assertor]

Zitat:

Zitat von k4ni

Ehm ich weis jetzt nicht ganz was du mit UpdateFile meinst, aber bei mir läuft der rest perfekt.

UpdateFile bewirkt, daß alles was Du z.B. per WriteString änderst auch wirklich gespeichert wird.

Ohne UpdateFile sind diese Änderungen in der Datei noch nicht gemacht.

Gruß winkel79

[Ralf Kaiser]

Zitat:

Zitat von winkel79

UpdateFile bewirkt, daß alles was Du z.B. per WriteString änderst auch wirklich gespeichert wird.

Ohne UpdateFile sind diese Änderungen in der Datei noch nicht gemacht.

Allerdings wrid UpdateFile automatisch aufgerufen, wenn das TIniFile-Objekt freigegeben wird:

Delphi-Quellcode:

destructor TIniFile.Destroy;
begin
  UpdateFile;         // flush changes to disk
  inherited Destroy;
end;

Bei korrekter Freigabe werden also auf jeden Fall die Daten geschrieben.

Ciao,
Ralf