Hallo,
ich habe die interessante Erfahrung machen müssen, dass ich beim
OnCreate eines Formulars, das Formular nicht schließen kann. Der Code wird einfach ignoriert...
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var cfg : TIniFile;
begin
//Datenbank-Konfiguration laden
if FileExists(pfad + 'admincfg.ini') then
begin
cfg := TIniFile.Create(pfad + 'admincfg.ini');
AdminDB.Database := cfg.ReadString('DATABASE','PATH','ERROR');
AdminDB.Username := cfg.ReadString('DATABASE','USER','ERROR');
AdminDB.Password := cfg.ReadString('DATABASE','PASSWORD','ERROR');
end
else
begin
MessageDlg('Fehler! Konfigurationsdatei "admingui.ini" nicht gefunden!', mtError, [mbOK], 0);
Close; //macht der net
end;
end;
was kann man da machen, bzw. warum funktioniert es eigentlich nicht?