IniFile wird nicht erstellt

[nahpets]

Hallo,

Zitat von implementation:

@nahpets: Der sagt mir Workspace sei 0. In ReadInteger scheint also gar nichts zu passieren. Ansonsten wäre es ja zumindest der Wert von PaintGreen.
Eine Exception wird nicht ausgelöst.

Dann liegt die Vermutung nahe, dass die INI-Datei irgendwo erstellt wird/wurde, aber nicht an der vermuteten Stelle.
Weise dem ReadInteger mal einen festen Vorgabewert zu und schau dann, ob immernoch die 0 geliefert wird. Wenn ja, muss die aus irgendeiner INI gelesen werden, dann hilft Dir (vermutlich) nur, mal die Festplatte nach 'ner Config.ini zu durchsuchen.

Delphi-Quellcode:

initialization 
  Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Config.ini'); 
  ShowMessage(ExtractFilePath(Application.Exename) + 'Config.ini'); 
  try 
    try 
      Workspace := Ini.ReadInteger('Colors', 'Workspace', 4711); // <- festen Vorgabewert zuweisen
      ShowMessage('Workspace ist: ' + IntToStr(Workspace)); // wenn 0, muss es irgendwo die INI-Datei geben!!!
      // und jetzt noch mal 'nen Test mit einem Wert, den es höchstwahrscheinlich nicht gibt:
      Workspace := Ini.ReadInteger('IstDochEgalWasHierSteht', 'HauptsacheGibtEsNicht', 4812);
      ShowMessage('Workspace ist: ' + IntToStr(Workspace)); // Hier sollte jetzt aber als Ergebnis 4812 kommen!!!
    except 
      on e : Exception do begin 
        ShowMessage('Es ist ein Fehler beim Lesen aufgetreten: ' + e.Message); 
      end; 
    end; 
  finally 
    FreeAndNil(Ini); 
  end; 
finalization 
  Ini := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Config.ini'); 
  try 
    Try 
      Ini.WriteInteger('Colors', 'Workspace', Workspace); 
      ShowMessage('Workspace ist: ' + IntToStr(Workspace)); 
    except 
      on e : Exception do begin 
        ShowMessage('Es ist ein Fehler beim Schreiben aufgetreten: ' + e.Message); 
      end; 
    end; 
  finally 
    FreeAndNil(Ini); 
  end; 
end.