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.