[Was ist das?] Ini-Datei ist nicht da - oder doch???

[Martin K]

Hi Leute,
also ich versteh grad die Welt nicht mehr:
Kann was aus ner ini-Datei gelesen werden die nicht vorhanden ist???

Habe mein Projekt auf diesen Code minimiert und der Fehler ist immer noch da:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini')) do
  try
    WriteString('Hallo','Test','Was ist das?');
  finally
    Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini')) do
  try
    ShowMessage(ReadString('Hallo','Test','leer')+#13#10+'Hier ist die Datei: '+FileName);
  finally
    Free;
  end;
end;

Klicke ich auf Button1 wird also was in die ini-Datei geschrieben, aber:
Die Datei wird nicht erstellt!!!

Klicke ich auf Button2 wird aus der Datei gelesen, es wird der String 'Was ist das?' in der Message angezeigt.
Aber: Die ini-Datei ist immer noch nicht da!
Also lasse ich mir zur Sicherheit den Dateinamen der ini-Datei in der Message anzeigen und siehe da:
Die Datei gibt es wirklich nicht, aber der String 'Was ist das?' scheint in die Datei geschrieben worden zu sein.

Auch wenn ich einfach nur die exe starte und gleich auf Button2 klicke (ohne Button1 vorher) wird die gleiche Message wie oben angezeigt, aber die ini-Datei ist immer noch nicht da.
Auch ein Neustart von Windows hat nix gebracht...

Im Anhang mal das ganze Geisterprojekt:
Also wenn irgendeiner da durchblickt bitte antworten!

[Daniel B]

Du arbeitest da mit dem ganzen Create, with TIni.Create.Free @_@

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini : TIniFiles;
begin
  Ini := TIniFile.Create();
  with Ini do
  begin
    try
      WriteString('Hallo','Test','Was ist das?');
    finally
      FreeAndNil(Ini);
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Ini : TIniFiles;
begin
  Ini := TIniFile.Create();
  with Ini do
  begin
    try
      ShowMessage(ReadString('Hallo','Test','leer')+#13#10+'Hier ist die Datei: '+FileName);
    finally
      FreeAndNil(Ini);
    end;
  end;
end;

[sakura]

Zitat von Daniel B:

Du arbeitest da mit dem ganzen Create, with TIni.Create.Free

Du machst technisch gesehen auch nichts anderes - eigentlich genau das Gleiche - nur in anderer Schreibform...

......

[Muetze1]

... und über die Sinnigkeit von FreeAndNil() (an statt .Free) lässt sich hier auch streiten...

[Martin K]

Auch wenn ich's ändere - es ändert nichts daran:
Es steht was in einer Datei, die nicht vorhanden ist.

Habt ihr mein Projekt mal ausprobiert?
Ist es bei euch genauso?

[Nicolai1234]

Zitat von Martin K:

Auch wenn ich's ändere - es ändert nichts daran:
Es steht was in einer Datei, die nicht vorhanden ist.

Habt ihr mein Projekt mal ausprobiert?
Ist es bei euch genauso?

Also bei mir tritt das Phänomen auch auf. Sehr seltsam

[Martin K]

Zitat von Nicolai1605:

Also bei mir tritt das Phänomen auch auf. Sehr seltsam

Und ich dachte schon der Geist wäre nur in meinem Rechner unterwegs

Ne, mal im Ernst:


Wenn ich ein neues Projekt mache und den Code für die beiden Buttons 1:1 kopiere, dann ist alles normal...
Aber bei diesem Projekt, ...
Was ist da anders???

[OregonGhost]

Ist das mit den Standard-Ini-Funktionen der APi nicht schon ewig so? Also dass die Informationen im Normalfall gar nicht in einer INI, sondern in der Registry landen? Die Tatsache, dass die beiden, bei denen das Problem auftritt, die aktuellste Delphi-Version verwenden, spricht in meinen Augen schon irgendwie dafür, dass TIniFile auch auf den neuesten Stand gebracht wurde.

Edit roter Kasten:
Naja, wenn's in einem anderen Projekt unter TurboDelphi nicht auftritt, kann's das wohl doch nicht sein... trotzdem mal als Denkanregung

[Sidorion]

Schreib doch mal das ChangeFileExt(ParamStr(0) in eine Variable und lass Dir dann deren Inhalt anzeigen.
Ist das Ergebnis eine relative Pfadangabe, dann schreibt er das IniFile in eine Unterverzeichnisstruktur ausgehend vom Windows-Ordner (also bei z.B.: foodir\bar.ini in %windir%\foodir\bar.ini).
Ausserdem köönte es sein, dass er Schindluder treibt, wenn Du direkt das Ergebnis vom ChangeFileExt dem Konstruktor übergibst.

Kasten: In meinen Projekten verwende ich immer eine Variable für die Pfadangebe und da klappts prima.

[Nicolai1234]

Zitat von OregonGhost:

Ist das mit den Standard-Ini-Funktionen der APi nicht schon ewig so? Also dass die Informationen im Normalfall gar nicht in einer INI, sondern in der Registry landen? Die Tatsache, dass die beiden, bei denen das Problem auftritt, die aktuellste Delphi-Version verwenden, spricht in meinen Augen schon irgendwie dafür, dass TIniFile auch auf den neuesten Stand gebracht wurde.

Edit roter Kasten:
Naja, wenn's in einem anderen Projekt unter TurboDelphi nicht auftritt, kann's das wohl doch nicht sein... trotzdem mal als Denkanregung

Ich hab nur sein Projekt augefürht, nicht neu kompiliert...

Aber der Ansatz ist gut.
HKEY_CURRENT_USER\Software\Microsoft\Clock\Hallo
Da ist der Eintrag Test der die Zeile Was ist das? enthält.

So ganz im Sinne des Erfinders, kann das ja nicht sein, oder?