Inifile wird nicht gespeichert [delphi2007]

[winx]

Hi,

wenn ich mit dieser Funktion ein leeres Inifile erstellen und speichern möchte klappt das
irgendwie nicht, egal wo ich es hin speichern möchte;

Delphi-Quellcode:

procedure TDockFormsSaver.SaveToolFormLayout;
var ini : TIniFile;
begin

  
      ini := TIniFile.Create(fAppStorage.FileName);
      FreeAndNil(ini);
      ini := TIniFile.Create('C:\z.ini');
      FreeAndNil(ini);
      ini := TIniFile.Create('z.ini');
      FreeAndNil(ini);
  

  
end;

woran kann das denn liegen???

danke,
winx

[Luckie]

Leere Ini-Dateien werden nicht angelegt von Windows. Du musst schon was reinschreiben.

[taaktaak]

Was sollte denn da überhaupt gespeichert werden? Wie soll denn eine "leere" Ini-Datei aussehen? Wozu soll das gut sein?

[hoika]

Hallo,

schreibe was rein und lösche es dann wieder.
Die Ini dürfte dann immer noch dasein.


Heiko

[Luckie]

Zitat:

Zitat von hoika

schreibe was rein und lösche es dann wieder.
Die Ini dürfte dann immer noch dasein.

Umständlich. warum nicht einfach mit CreateFile eine leere Datei anlegen?

[RavenIV]

Mit TIniFile.Create erstellst Du nur das Objekt.
Da wird noch kein File auf der Platte angelegt.
Erst eine Write-Funktion (WriteInteger, WriteString, usw) sorgt dafür, dass in das File geschrieben wird.
Existiert das File noch nicht, wird es angelegt.

Und warum verwendest Du FreeAndNil?
Besser wäre hier ini.Free.

Den Namen für das ini-File kannst Du hiermit relativ elegant bekommen.
Das ini-File heisst dann wie die Exe der Applikation, nur eben als Dateierweiterung .ini.

Delphi-Quellcode:

var
  IniFile: TIniFile;
begin
  IniFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Application.ExeName);
  IniFileName := ChangeFileExt(IniFileName, '.ini');

  IniFile := TIniFile.Create(IniFileName);
  ...
  ...
  IniFile.Free;
end;

/edit:
Ich sehe gerade, dass Du vermutlich das FormLayout (Position, Grösse, usw) speichern willst.
Dazu gibt es eine Komponente, die das macht.
Bei den RxKomponenten (mittlerweile bei der JVCL dabei, gibt ea aber auch noch einzeln) ist das
TFormPlacement und TFormStorage dabei.
Die können das FormLayout in ein ini oder in die Registry schreiben und auch wieder auslesen.
Komponente auf das Form ziehen, konfigurieren und der Rest geht automatisch.
Einfach mal anschauen...

[Luckie]

Zitat:

Zitat von RavenIV

Und warum verwendest Du FreeAndNil?
Besser wäre hier ini.Free.

Kannst du das begründen?

[mkinzler]

Es handelt sich um eine lokale Variable und wird sofort wiederverwendet. Deshalb ist ein Setzten auf Nil nicht unbedingt notwendig; falsch aber auch nicht.

[Luckie]

Es ging nicht um falsch oder richtig, sondern um besser und schlechter.

[RavenIV]

Zitat:

Zitat von Luckie

Zitat:

Zitat von RavenIV

Und warum verwendest Du FreeAndNil?
Besser wäre hier ini.Free.

Kannst du das begründen?

Ruft FreeAndNil auch Destroy auf?
Denn im TIniFile.Destroy passieren auhc noch einige (nicht unwichtige) Dinge.

Ausserdem finde ich es übersichtlicher, wenn es so ist:

Delphi-Quellcode:

MyObject := TMyObject.Create(...);
MyObject.MyVariable := Irgendwas;
MyObject.MachWas(...);
MyObject.Free;

[mkinzler]

Zitat:

Ruft FreeAndNil auch Destroy auf?

Es wird Free aufgerufen und darin Destroy

[Luckie]

Natürlich ruft FreeAndNil Destroy auf, da es nichts anderes macht als Free aufzurufen und dann den Objektzeiger auf nil zu setzen.

[DeddyH]

FreeAndNil ruft Free auf und dieses wiederum Destroy AFAIR.

[RavenIV]

OK, ihr habt mich überzeugt.

Nun aber wieder zurück zum Topic.

[winx]

ok ok ok, danke!!!!

[DeddyH]

Ich weiß zwar nicht, wozu man leere Ini-Dateien braucht, aber die könnte man ja z.B. so anlegen (aus dem Kopf):

Delphi-Quellcode:

function CreateEmptyIni(const sFilename: string): Boolean;
var sList: TStringList;
begin
  Result := true;
  sList := TStringList.Create;
  try
    try
      sList.SaveToFile(sFilename);
    except
      Result := false;
    end;
  finally
    sList.Free;
  end;
end;

[RavenIV]

Zitat:

Zitat von DeddyH

Ich weiß zwar nicht, wozu man leere Ini-Dateien braucht, aber die könnte man ja z.B. so anlegen (aus dem Kopf)

Oder man verwendet AssignFile, Rewrite und CloseFile.
Damit wird auch eine leere Datei angelegt.
Für die Verwendung der o.g. Funktionen bitte die Delphi-Hilfe konsultieren.

Die Frage ist aber immernoch, warum man eine leere ini-Datei anlegen sollte.

[Luckie]

Zitat:

Zitat von DeddyH

Ich weiß zwar nicht, wozu man leere Ini-Dateien braucht, aber die könnte man ja z.B. so anlegen (aus dem Kopf):

Einfachher:

Delphi-Quellcode:

CloseHandle(CreateFile(PChar(ChangeFileExt(ParamStr(0), '.ini')), GENERIC_READ or GENERIC_WRITE, 0, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0));

[TeronG]

Zitat:

Zitat von RavenIV

Die Frage ist aber immernoch, warum man eine leere ini-Datei anlegen sollte.

Um daraus leere Variabeln zu lesen? :mrgreen: :duck:

[DeddyH]

Zitat:

Zitat von Luckie

Delphi-Quellcode:

PChar(ChangeFileExt(ParamStr(0), '.ini'))

Das könnte Dir aber unter Vista schwer auf die Füße fallen ;) . Mir ging es ja auch eigentlich primär darum, dass ich es für sinnvoll erachte, diese Funktionalität in eine eigene Funktion oder Methode auszulagern.

[Luckie]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von Luckie

Delphi-Quellcode:

PChar(ChangeFileExt(ParamStr(0), '.ini'))

Das könnte Dir aber unter Vista schwer auf die Füße fallen ;) .

Das war ja nur, um schnell und unkompliziert einen Dateinamen zum Testen zu bekommen. ;)