Einzelnen Beitrag anzeigen

Benutzerbild von Martin K
Martin K

Registriert seit: 20. Okt 2005
919 Beiträge
 
Turbo Delphi für Win32
 
#1

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

  Alt 18. Sep 2006, 15:03
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!
Angehängte Dateien
Dateityp: zip projekt_410.zip (210,1 KB, 16x aufgerufen)
Mit den Menschen ist es wie mit Computern -
es gibt Nullen und Einsen.
  Mit Zitat antworten Zitat