IniFile wird nicht erstellt

[implementation]

Mein Programm (bzw. die Initialization einer Unit) soll eine IniFile Config.ini anlegen und aus ihr den Wert der Farbe Workspace auslesen.
Doch es passiert nichts (nicht einmal die Datei wird erstellt).
Könnt ihr mir helfen?

Delphi-Quellcode:

unit Windesk.ConfigReadWrite;

interface

implementation

uses IniFiles, Windesk.Colors;

var INI : TIniFile; Vari: Variant;

initialization
  INI := TIniFile.Create('Config.ini');
  WorkSpace := INI.ReadInteger('Colors','Workspace',PaintGreen);
finalization
  INI.WriteInteger('Colors','Workspace',Workspace);
  INI.Free;
end.

Workspace ist eine Variable aus einer anderen Unit, PaintGreen eine Konstante.

[DeddyH]

Versuch es mal mit absoluten Pfaden.

[implementation]

Geht auch nicht besser.

Delphi-Quellcode:

unit Windesk.ConfigReadWrite;

interface

implementation

uses IniFiles, Windesk.Colors, SysUtils,Forms;

var INI : TIniFile; Vari: Variant;

initialization
  INI := TIniFile.Create(ExtractFileDir(Application.Exename)+'\Config.ini');
  Workspace := INI.ReadInteger('Colors','Workspace',PaintGreen);
finalization
  INI.WriteInteger('Colors','Workspace',Workspace);
  INI.Free;
end.

[DeddyH]

Und so?
INI := TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFilePath(Application.Exename))+'Config.ini'); Wobei eine Speicherung im Programmverzeichnis grundsätzlich keine gute Idee ist. Spätestens ab Vista hast Du schlicht keine Berechtigung dazu.

[Matze]

Zitat von DeddyH:

INI := TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFilePath(Application.Exename))+'Config.ini');

ExtractFilePath hängt bereits einen abschließenden Backslash an den Pfad. Der Aufruf von IncludeTrailingPathDelimiter ist daher überflüssig.

Grüße

[DeddyH]

Zitat von Delphi 5-Hilfe:

Der resultierende String enthält die Zeichen von FileName bis einschließlich des Doppelpunkts oder des umgekehrten Schrägstrichs, mit dem die Pfadinformationen vom Dateinamen und seinere Erweiterung abgetrennt wird.

Sicher ist sicher

[Matze]

In der Uralt-Hilfe ok, aber in der neueren habe ich das nicht so schwammig formuliert in Erinnerung.

Aber gut, der Aufruf schadet nicht, das ist richtig.

Edit: Ich kann mich natürlich auch irren, habe Delphi noch nicht installiert. *duck*

[implementation]

Geht immer noch nicht.

Delphi-Quellcode:

unit Windesk.ConfigReadWrite;

interface

implementation

uses IniFiles, Windesk.Colors, SysUtils,Forms;

var INI : TIniFile; Vari: Variant;

initialization
  INI := TIniFile.Create(ExtractFileDir(Application.Exename)+'Config.ini');
  Workspace := INI.ReadInteger('Colors','Workspace',PaintGreen);
finalization
  INI.WriteInteger('Colors','Workspace',Workspace);
  INI.Free;
end.

[DeddyH]

Bist Du mal durchgesteppt?

[implementation]

Nein
Hab ich noch nie gemacht
Ich versuchs mal

-------------------

das hat mich irgendwie nicht weiter gebracht