INI File wird nicht erzeugt

[cb01]

Hi,

ich habe ein Problem mit folgendem Code, eigentlich sollte er eine INI Datei anlegen, aber leider tut er das nicht, und ich habe keine Ahnung warum...

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data.ini') ;

end;

end.

Ich würde mich sehr freuen, wenn jemand einen Tipp für mich hätte...

Gruß

Chris

[zecke]

:hi:

edit: war blödsinn :roll: sry

edit2: :mrgreen: bei mir wird die Datei erst gespeichert, wenn ich etwas hineinschreibe:

Delphi-Quellcode:

var IniFile : TIniFile;
begin
IniFile:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'data.ini');
with IniFile do
  begin
    WriteString('test1','test2','test3');
  end;
IniFile.Free;
end;

:hi:

edit3: es ist schon spät, gnade..

[cb01]

Hi,

jap so gehts bei mir auch, an diese Möglichkeit hatte ich garnicht gedacht...naja aufjedenfall vielen Dank!

Gruß

Chris

[Luckie]

Eventuell reicht auch schon das Free. Eine mit einem FileStream geöffnete Datei, wird auch erst geschlossen, wenn der FileStream freigegeben wird.

[MrKnogge]

Hi,

nur das free reicht nicht aus.

Gruß

[Hansa]

Zitat:

Zitat von MrKnogge

nur das free reicht nicht aus.

Wieso nicht ? Was soll denn bei einer simplen Textdatei noch groß passieren ?

Bei solchen Behauptungen : immer Quelle angeben ! :zwinker:

[MrKnogge]

Zitat:

Zitat von Hansa

Bei solchen Behauptungen : immer Quelle angeben ! :zwinker:

Die Quelle ? Mein Delphi 7 Pro.
Ich habe es getestet, und nur mit free oder einem Lesezugriff (ReadString) hat er die Datei nicht erstellt.

Gruß

[himitsu]

Ich glaub in meinen D7-Sourcen wird bei .Create nur der Dateiname in der Klasse zwischengespeichert.
und erst beim Aufruf von Read... und Write... wird wirklich auf die ini zugergriffen.

(jedenfalls hab ich das noch so im Kopf)


Demnach kann beim .Create noch keine Datei erstellt werden. (bei zweifeln kann ja nochmal jemand bei sich nachsehn :angel: )

[Hansa]

Wieso schreibst Du denn was, ohne das Thema überhaupt zu lesen ? Zecke hat das doch schon klargestellt. 8)

[IngoD7]

Zitat:

Zitat von Hansa

Wieso schreibst Du denn was, ohne das Thema überhaupt zu lesen ? Zecke hat das doch schon klargestellt. 8)

Witzbold! :roll: Bis vor kurzem hast du noch selbst Klarstellungen im Thema angezweifelt und wolltest Quellen hören.

Zitat:

Zitat von himitsu

Ich glaub in meinen D7-Sourcen wird bei .Create nur der Dateiname in der Klasse zwischengespeichert.
und erst beim Aufruf von Read... und Write... wird wirklich auf die ini zugergriffen.
[...]
Demnach kann beim .Create noch keine Datei erstellt werden. (bei zweifeln kann ja nochmal jemand bei sich nachsehn :angel: )

Genau so ist das. :thumb:

[himitsu]

*nachles* hmm, hab ich da ja doch was übersehn o.O

Na ja ... zumindestens hab ich dann wenigstens den Grund dafür geliefert :roll:


so, nun isses soweit und ich laß mir hier 'ne neue Maus geben ... will och ma wieder richtig scrollen können -.-''


[add]
na ja, die [Edits] da oben sind mir ja dennoch entgangen :oops:

[Hansa]

Vorab : himitsu hat hiermit nichts zu tun. Der rutschte in den Thread rein und der rote Kasten war wohl kaputt. :? Es ging mir um "MrKnogge".

Zitat:

Zitat von IngoD7

Zitat:

Zitat von Hansa

Wieso schreibst Du denn was, ohne das Thema überhaupt zu lesen ? Zecke hat das doch schon klargestellt. 8)

Witzbold! :roll: Bis vor kurzem hast du noch selbst Klarstellungen im Thema angezweifelt und wolltest Quellen hören.

Und wo ist/war die Quelle ?

Es ging hier drum :

Zitat:

Zitat von MrKnogge

nur das free reicht nicht aus.Gruß

Behauptung steht also schon da, aber wo ist die Quelle ?

Es wird überflüssigerweise mal wieder kunterbunt. 8)

Die Klarstellung, um die es ging war das hier :

Zitat:

Zitat von zecke

edit2: :mrgreen: bei mir wird die Datei erst gespeichert, wenn ich etwas hineinschreibe:

Man merke : Behauptung => Quelle und Zitate müssen richtig sein und vor allen Dingen auch vorhanden.

Also, was soll das alles ?

Zecke hat zwar gezeigt, wie so etwas richtig geht, aber die Hauptursache liegt an dem vergessenen erzeugen der Variablen und dem Zugriff auf dieses Nirwana. Hinzu kommt die Nichtangabe der Fehlermeldung. Da kam nämlich sicherlich eine.

[MrKnogge]

Warum sollte da eine Fehlermeldung kommen ?
Wo greift er dort auf's Nirwana zu ?
Er erstellt lediglich ein Objekt ohne sich die Position zu merken.

[Hansa]

Zitat:

Zitat von MrKnogge

Wo greift er dort auf's Nirwana zu ?

Schon mal überhaupt getestet ? Es gibt keine Instanz davon. Insofern dürfte "Zugriffsverletzung" kommen, weil das Programm eben im Nirwana landet. Im Zweifelsfall erst testen, dann irgendwas posten. :mrgreen:

[IngoD7]

Zitat:

Zitat von Hansa

Vorab : himitsu hat hiermit nichts zu tun. Der rutschte in den Thread rein und der rote Kasten war wohl kaputt. :? Es ging mir um "MrKnogge".

Okay, ich sehe erst jetzt, dass eure beiden Postings sich wohl überschnitten haben. So weit, so gut.

Zitat:

Zitat von Hansa

Zitat:

Zitat von IngoD7

Zitat:

Zitat von Hansa

Wieso schreibst Du denn was, ohne das Thema überhaupt zu lesen ? Zecke hat das doch schon klargestellt. 8)

Witzbold! :roll: Bis vor kurzem hast du noch selbst Klarstellungen im Thema angezweifelt und wolltest Quellen hören.

Und wo ist/war die Quelle ?

Es ging hier drum :

Zitat:

Zitat von MrKnogge

nur das free reicht nicht aus.Gruß

Behauptung steht also schon da, aber wo ist die Quelle ?

Es wird überflüssigerweise mal wieder kunterbunt. 8)

Wozu braucht er eine Quelle? Luckie sprach die Vermutung aus, dass möglicherweise bei Free die Datei geschrieben wird. MrKnogge schrieb: "Nein, ein Free reicht nicht." Und das stimmt. Wo ist das Problem, wozu braucht er eine Quelle für diese Angabe?

Deine darauf folgende Frage, was "denn bei einer simplen Textdatei noch groß passieren" solle, lässt eher den Schluss zu, dass du - zumindest dem Zeitpunkt - gar nicht wusstest, worum es geht. :???:

Zitat:

Zitat von Hansa

Zecke hat zwar gezeigt, wie so etwas richtig geht, aber die Hauptursache liegt an dem vergessenen erzeugen der Variablen und dem Zugriff auf dieses Nirwana. Hinzu kommt die Nichtangabe der Fehlermeldung. Da kam nämlich sicherlich eine.

:wiejetzt:
Wieder so'n wirres Zeug ... Bist du im richtigen Thread? :gruebel:

Ich sehe im ganzen Thread kein "Zugriff auf dieses Nirvana". Auch ist nirgendwo von einer Fehlermeldung die Rede. Ich wüsste auf Anhieb auch gar nicht, wo es wodurch zu irgendeinem Fehler kommen sollte.

Der Threadersteller war lediglich der Ansicht, es müsse schon beim Createn einer TIniFile die entsprechende Ini-Datei auf die Platte geschrieben werden. Das ist nicht der Fall, und das weiß er jetzt.

[IngoD7]

Zitat:

Zitat von Hansa

Zitat:

Zitat von MrKnogge

Wo greift er dort auf's Nirwana zu ?

Schon mal überhaupt getestet ? Es gibt keine Instanz davon. Insofern dürfte "Zugriffsverletzung" kommen, weil das Programm eben im Nirwana landet. Im Zweifelsfall erst testen, dann irgendwas posten. :mrgreen:

Meinst du das hier???

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject); 
begin 
TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data.ini') ; 
end;

Ja, teste mal schön! :twisted:

Da kommt kein Fehler und nichts. Warum auch?
Er erzeugt ein TIniFile und hat keine Referenz darauf. Unschön - aber keine Fehlermeldung.

[MrKnogge]

Zitat:

Zitat von Hansa

Im Zweifelsfall erst testen, dann irgendwas posten.

Diesen Satz kann ich nur zurück geben, ich habe nämlich getestet :wink:

[Hansa]

Zitat:

Zitat von IngoD7

Wozu braucht er eine Quelle? ... "Nein, ein Free reicht nicht." Und das stimmt

Weil es eben nicht stimmt. :zwinker:

Delphi-Quellcode:

Im folgenden Beispiel werden die Konfigurationsinformationen mit dem Ereignis OnCreate eines Formulars aus einer INI-Datei gelesen und in der Ereignisbehandlungsroutine für OnClose zurückgeschrieben.

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Top     := Ini.ReadInteger( 'Form', 'Top', 100 );
    Left    := Ini.ReadInteger( 'Form', 'Left', 100 );
    Caption := Ini.ReadString( 'Form', 'Caption', 'New Form' );
    if Ini.ReadBool( 'Form', 'InitMax', false ) then
      WindowState = wsMaximized
    else
      WindowState = wsNormal;
  finally
    TIniFile.Free;
    end;
  end;

Quelle : OH. :mrgreen:

Wo ist jetzt da was außer free zu sehen ? :shock:

[MrKnogge]

Zitat:

Zitat von Hansa

Wo ist jetzt da was außer free zu sehen ? :shock:

Hier:

Delphi-Quellcode:

Top     := Ini.ReadInteger( 'Form', 'Top', 100 );

Aber auch das ändert nichts daran, dass duch deinen Code keine ini-Datei in dem Ordner der Anwenung erstellt wird !
Du brauchst mindestens einmal etwas in die Ini-Datei schreiben.

Gruß

[Edit]"/" vergessen[/Edit]

[Christian Seehase]

Moin Hansa,

Zitat:

Zitat von Hansa

Code:

//...
finally
  [color=red][b]T[/b][/color]IniFile.Free;
end;

Zitat:

Zitat von Hansa

Im Zweifelsfall erst testen, dann irgendwas posten.

öhm... ;-)


BTW:
Es ging darum, dass ein Free nicht reicht, um eine Ini-Datei zu erzeugen, ohne etwas da reinzuschreiben, und dass ist so korrekt, da beim Create nur der Dateiname/Pfad gesetzt wird, und im Free nichts weiter passiert.

[IngoD7]

Zitat:

Zitat von Hansa

Zitat:

Zitat von IngoD7

Wozu braucht er eine Quelle? ... "Nein, ein Free reicht nicht." Und das stimmt

Weil es eben nicht stimmt. :zwinker:

Delphi-Quellcode:

Im folgenden Beispiel werden die Konfigurationsinformationen mit dem Ereignis OnCreate eines Formulars aus einer INI-Datei gelesen und in der Ereignisbehandlungsroutine für OnClose zurückgeschrieben.

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    Top     := Ini.ReadInteger( 'Form', 'Top', 100 );
    Left    := Ini.ReadInteger( 'Form', 'Left', 100 );
    Caption := Ini.ReadString( 'Form', 'Caption', 'New Form' );
    if Ini.ReadBool( 'Form', 'InitMax', false ) then
      WindowState = wsMaximized
    else
      WindowState = wsNormal;
  finally
    TIniFile.Free;
    end;
  end;

Quelle : OH. :mrgreen:

Wo ist jetzt da was außer free zu sehen ? :shock:

Du willst uns jetzt provozieren, oder? :roll:

Das, was dafür ausschlaggebend ist, dass das Ding zurückgeschrieben wird, steht - wie du selber aus der Hilfe zitiert hast - im OnClose. Es sind die ganzen Ini.Write...-Befehle.

Zitat:

Zitat von Aus der Online-Hilfe

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action TCloseAction)
var
  **Ini: TIniFile;
begin
  **Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
    ****Ini.WriteInteger( 'Form', 'Top', Top);
    ****Ini.WriteInteger( 'Form', 'Top', Top);
    *Ini.WriteString( 'Form', 'Caption', Caption );

    ****Ini.WriteBool( 'Form', 'InitMax', WindowState = wsMaximized );
  finally
    ****TIniFile.Free;
  *end;
*end;

Und um dich selbst zu zitieren: Probiere das alles doch einfach mal aus.