IniFile - Auslesen funktioniert nicht

[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