hallo

mein Programm holt einen Wert von einer ini Datei

markieren

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 ?

Hallo,

markieren

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.

markieren

Delphi-Quellcode:

if not FileExists... then
  Close;

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

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

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.

Zitat von bluesbear:

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 verschwendet Button1 nach dem Klick !!!

zusammenfalten · markieren

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;

Zitat von Der.Kaktus:

Zitat von bluesbear:

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?

@toms 2late *gg* folgt!!

Zitat von Delphiturbo:

Warum verschwendet Button1 nach dem Klick !!!

zusammenfalten · markieren

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.