IniFile - Auslesen funktioniert nicht

[Jürgen Thomas]

Eigentlich sieht der Code wirklich fast sauber aus.

Zitat von Khabarakh:

Zitat von mkinzler:

dennoch gehört das Create nicht ins try...Warum nicht ?

Weil's keinen Sinn ergibt?
Überleg doch mal, was passiert, sollte eine Exception im ctor ausgelöst werden. Der Ini-Variablen wird kein Pointer zugewiesen, da der Code sofort ins Finally springt. Und da Delphi keinen lokalen Variablen initialisiert, knallt es höchstwahrscheinlich dann beim Aufruf von Free, weil IniDatei sonstwohin zeigen kann.

Also ändern wie folgt (im übrigen unveränderte Kopie):

Zitat von Cyberbob:

Mein Code:

Delphi-Quellcode:

IniDatei := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));  //  verschoben
try
  len := IniDatei.ReadInteger('Global', 'EQ', 0);
  ShowMessage(IntToStr(len));
finally
  IniDatei.Free;
end;

Was mach ich falsch, ich wüsste nicht, was ich anderst gemacht haben sollte als sonst...

Ich sehe auch keinen Fehler (und die anderen Autoren ebenfalls nicht wirklich) - natürlich unter der Voraussetzung, dass die Ini wirklich im Programmverzeichnis liegt.

In solchen Fällen bietet es sich immer an, schrittweise im Debugger vorzugehen - Haltepunkt auf TIniFile.Create - und die lokalen Variablen zu prüfen. Außerdem könntest Du zusätzlich eine Stringliste erzeugen, in die Du nacheinander alle Sections und alle Werte einträgst und mit ShowMessage anzeigen lässt - siehe das Beispiel zu TIniFile.ReadSections.

Gruß Jürgen

[Cyberbob]

Also, ich habe in meinem Code jetzt vollgendes stehen:

Delphi-Quellcode:

  IniDatei := TIniFile.Create('Settings.ini');
  try
    len := IniDatei.ReadInteger('Global', 'EQ', 0);
    ShowMessage(IntToStr(len));
  finally
    FreeandNil(IniDatei);
  end;

Die Datei Settings.ini existiert und wenn ich testweise ein Memo1.Ls.LoadFromFile('Settings.ini'); zeigt er mir den Inhalt auch an.
Dennoch kommt er zum ShowMessage und Zeigt mir 0 an! Eine Exception wird auch nicht ausgelöst, das Programm läuft weiter und der Compiler/Debugger meckert auch nicht

[EDIT] Hab jetzt mal nen Haltepunkt bei try gesetzt, Bei IniDatei Zeigt er mir jetzt "IniDatei = ()" an. Was bedeutet das, das nicht zugewiesen ist?
Dennoch bringt er keine Exception. [/EDIT]

[Thanatos81]

Versuchs mal mit
IniDatei := TIniFile.Create(ExtractFilePath(paramstr(0))+'Settings.ini'); INI-dateien werden normalerweise im Windows-Ordner gespeichert, also versucht

IniDatei := TIniFile.Create('Settings.ini'); z.B. C:\Windows\Settings.ini zu laden.

[Hawkeye219]

Bevor wir jetzt noch tagelang weiter raten: füge bitte die folgende Prozedur in dein Programm ein und rufe sie dort auf, wo du den Wert aus der Ini-Datei laden möchtest. Teile uns dann bitte mit, was in der Messagebox steht, die beim Aufruf erscheint.

Delphi-Quellcode:

procedure CheckIni;
const
  SECTION = 'Global';
  KEY = 'EQ';
var
  Ini : TIniFile;
  FileName : string;
  Value : Integer;
begin
  FileName := ExtractFilePath(ParamStr(0)) + 'Settings.ini';
  if FileExists(FileName) then
    begin
      Ini := TIniFile.Create(FileName);
      try
        if Ini.SectionExists(SECTION) then
          if Ini.ValueExists(SECTION, KEY) then
            begin
              Value := Ini.ReadInteger(SECTION, KEY, 0);
              ShowMessage ('Der gelesene Wert: ' + IntToStr(Value));
            end
          else
            ShowMessage ('Der Schlüssel "' + KEY + '" existiert nicht!')
        else
          ShowMessage ('Der Abschnitt "' + SECTION + '" existiert nicht!');
      finally
        Ini.Free;
      end;
    end
  else
    ShowMessage ('Die Datei "' + FileName + '" existiert nicht!');
end;

Gruß Hawkeye

[Cyberbob]

@Thanatos81: Hat funktioniert danke! Jetzt zeigt er mir den Richtigen Wert an!


Dank an alle!


Was ist eigentlich der Unterschied zwischen IniDatei.Free und FreeandNil(IniDatei)?

[ManuMF]

Der zweite Befehl ist besser, da dem Objekt auch noch zusätzlich nil zugewiesen wird, wie der Name der Funktion schon sagt.

[Muetze1]

... wobei, wenn es sich um eine lokale Variable handelt (ini) und danach nix mehr relevantes an Code kommt, was die INI betrifft, dann reicht ein .Free vollkommen.

[Thanatos81]

Dann schon, ich zB hab mir aber trotzdem angewöhnt auch in solchen Fällen FreeAndNil zu verwenden um es dann an anderen Stellen automatisch zu nutzen und nicht "aus Versehen" .Free zu verwenden.

[Muetze1]

Zitat von Thanatos81:

Dann schon, ich zB hab mir aber trotzdem angewöhnt auch in solchen Fällen FreeAndNil zu verwenden um es dann an anderen Stellen automatisch zu nutzen und nicht "aus Versehen" .Free zu verwenden.

Hatte ich früher auch, bin aber nun wieder dazu über gegangen FreeAndNil() wirklich nur noch da zu verwenden, wo eine erneute Abfrage oder Verwendung der Variable in Frage kommt. So habe ich auch im Destructor keine FreeAndNil()'s drin...