Wert von ini Datei lesen und wenn nicht vorhanden dann Exit

[Delphiturbo]

hallo

mein Programm holt einen Wert von einer ini Datei

Delphi-Quellcode:

...
procedure TForm1.FormCreate(Sender: TObject);
var MyIniFile : TInifile;
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini');
Edit1.Text := MyIniFile.ReadString('Section1','edit1.text','nicht gefunden');

 MyIniFile.Free;
end;

ich möchte dass mein Programm beendet wenn die Datei nicht vorhanden ist
was kann ich dazu in Code schreiben ?

[Der.Kaktus]

Hallo,

Delphi-Quellcode:

If Paramcount>0 then ...//pruefen ob Parameter i.O. ist
else application.terminate;

Dem entsprechend die Reaktion abbrechen wenn der Inifile Wert nicht dem entspricht, was er enthalten soll.

[tomsel]

Delphi-Quellcode:

if not FileExists... then
  Close;

[bluesbear]

Besser wäre, das Form gar nicht erst zu erstellen, wenn die ini nicht existiert.

[tomsel]

Ja, genau! Close in FormCreate, geht das überhaupt?

[bluesbear]

Zitat:

Zitat von tomsel

Ja, genau! Close in FormCreate, geht das überhaupt?

Sehr gute Frage. Das habe ich noch nie ausprobiert <g>. Ein PostMessage in FormShow abzusetzen sollte klappen. Aber dann flackert das Form kurz auf.

[Der.Kaktus]

Zitat:

Zitat von bluesbear

Zitat:

Zitat von tomsel

Ja, genau! Close in FormCreate, geht das überhaupt?

Sehr gute Frage. Das habe ich noch nie ausprobiert <g>. Ein PostMessage in FormShow abzusetzen sollte klappen. Aber dann flackert das Form kurz auf.

Wie ich oben schon schrieb..Application.Terminate geht da nur..hatte das Prob. naemlich letztens. ;-)

[Delphiturbo]

Warum verschwendet Button1 nach dem Klick !!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyIniFile : TInifile;
begin
if FileExists('MyIniFile3.ini') then
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini');
Edit1.Text := MyIniFile.ReadString('Section1','text1','nicht gefunden')
end
else
begin
//close;
ShowMessage('nicht gefunden ');
MyIniFile.Free;
end;

[toms]

Zitat:

Zitat von Der.Kaktus

Zitat:

Zitat von bluesbear

Zitat:

Zitat von tomsel

Ja, genau! Close in FormCreate, geht das überhaupt?

Sehr gute Frage. Das habe ich noch nie ausprobiert <g>. Ein PostMessage in FormShow abzusetzen sollte klappen. Aber dann flackert das Form kurz auf.

Wie ich oben schon schrieb..Application.Terminate geht da nur..hatte das Prob. naemlich letztens. ;-)

Warum den Check nicht schon in der dpr Datei machen?

[Der.Kaktus]

@toms 2late *gg* folgt!!

Zitat:

Zitat von Delphiturbo

Warum verschwendet Button1 nach dem Klick !!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyIniFile : TInifile;
begin
if FileExists('MyIniFile3.ini') then
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini');
Edit1.Text := MyIniFile.ReadString('Section1','text1','nicht gefunden')
end
else
begin
//close;
ShowMessage('nicht gefunden ');
MyIniFile.Free;
end;

mach die Abfrage doch im Projekt(dpr) hinter application.init..iss paramcount bzw. Inifile(wert) ungleich dem, den Du erwartest..dann schreibst Du "Application.Terminated"..schon umgehst Du alle Schwierigkeiten.

[Fussball-Robby]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyIniFile : TInifile;
begin
if FileExists('MyIniFile3.ini') then
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini');
Edit1.Text := MyIniFile.ReadString('Section1','text1','nicht gefunden')
end
else
begin
//close;
ShowMessage('nicht gefunden ');
MyIniFile.Free;
end;

Was ist das denn? Wenn die Datei existiert, erstellst du die IniFile, wenn sie nicht existiert, gibtst du sie frei? Außerdem solltest du dir angewöhnen, den Code einzurücken:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIniFile: TInifile;
  FName: String;
begin
  FName := ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini';
  if FileExists(FName) then
  begin
    MyIniFile := TIniFile.Create(FName);
    try
      Edit1.Text := MyIniFile.ReadString('Section1', 'text1', 'nicht gefunden')
    finally
      MyIniFile.Free;
    end;
  end
  else
  begin
    //close;
    ShowMessage('nicht gefunden ');
  end;
end;

[Delphiturbo]

Es ist ok mit dem Code, möchte ich aber noch den Code ändern

wenn die INI-Datei vorhanden ist aber die Zeile text1 nicht da, dann soll das Programm auch beendet werden und nicht eine Meldung zeigen "nicht gefunden"

[Blackheart]

Zitat:

Zitat von Delphiturbo

Es ist ok mit dem Code, möchte ich aber noch den Code ändern

wenn die INI-Datei vorhanden ist aber die Zeile text1 nicht da, dann soll das Programm auch beendet werden und nicht eine Meldung zeigen "nicht gefunden"

Und wo ist nun dein Problem ?

Delphi-Quellcode:

If IniFile.ReadString(bla then...

[Delphiturbo]

Ich habe jetzt ein anderes Problem

Es wird immer eine neue Zeile in Ini-Datei hinzugefügt !

Delphi-Quellcode:

...
MyIniFile.WriteString('Daten1','Text1', 'blabla');
...

d.h. wenn ich die INI-Datei öffne dann finde ich folgendes :

Delphi-Quellcode:

[Daten]
Text=blabla
[Daten]
Text=blabla
[Daten]
Text=blabla
[Daten]
Text=blabla
...

Wie kann ich die Zeile in ini Datei ersetzen ? Also die alte zuerst löschen
und dann die neue hinschreiben.

[Blackheart]

Normalerweise wird der Wert überschrieben du musst da wohl irgendetwas
verkehrt machen am besten du zeigst mal etwas code.

[SaFu]

Hatte das Problem auch schonmal wenn irgendwo noch ein leerzeichen drin ist wurde es bei mir auch immer wieder neu geschrieben. Raus gemach ging

vielleicht hilfts ja

[DeddyH]

Spätestens beim 2. Anruf sollte der Wert dann aber trotzdem überschrieben werden.

[Deltachaos]

Delphi-Quellcode:

...
MyIniFile.WriteString('Daten1','Text1', 'blabla');
...

d.h. wenn ich die INI-Datei öffne dann finde ich folgendes :

Delphi-Quellcode:

[Daten]
Text=blabla
[Daten]
Text=blabla
[Daten]
Text=blabla
[Daten]
Text=blabla
...

kleine Frage:

Warum steht oben 'Daten1' und unten '[Daten]' dass muss eigentlich dan '[Daten1]'

gibst du den die ini Datei auch wieder frei. nur so ne vermutung.

Delphi-Quellcode:

  inidatei.free;

:mrgreen: :mrgreen: