Hallo zusammen....
Ich habe folgendes Problem... mal wieder eines
Ich habe in der MainForm.FormClose(Sender : TSender);
procedure ein paar zeilen eingesetzt das Sieht nun so aus :
Delphi-Quellcode:
MainForm.FormClose(Sender : TSender);
var I : Integer;
begin
UpdateConfig;
if MDIChildCount > 3 then
for i:=2 to MDIChildCount - 1 do
MDIChildren[i].Close;
end;
die UpdateConfig sieht Folgendermassen aus :
Delphi-Quellcode:
Procedure TMainForm.UpdateConfig;
var Ini : TIniFile;
begin
try
Ini:= TIniFile.Create(copy(Paramstr(0),1,length(Paramstr(0))-23)+'
\file.ini');
with Ini
do
begin
WriteString('
PATHS','
bindir',MainConfig.binpath);
WriteString('
DB','
dir',Settings.EditDBOrt.Text);
if Settings.ArtBox.Text = '
lokale Datei'
then
begin
WriteString('
DB','
server','
localhost');
MainConfig.DBConfig.dbserver := '
localhost';
end else
begin
WriteString('
DB','
server',Settings.server.text);
MainConfig.DBConfig.dbserver := Settings.server.text;
end;
MainConfig.DBConfig.bdename := Settings.EditDBName.text;
MainConfig.DBConfig.dbpath := Settings.EditDBOrt.Text;
WriteString('
DB','
dir',Settings.EditDBOrt.text);
WriteString('
DB','
file',Settings.EditDBName.text);
end;
finally
Ini.Free;
end;
end;
zum verständnis MainConfig ist ein Record. und DBConfig auch.
jetzt ist es Egal wie ich es Drehe.
Sobald ich die UpdateConfig aus der OnClose anweisung rausnehme bekomme ich keinen Fehler mehr.
Lasse ich den drinnen bekomme ich eine schutzverletzung bei adresse : 005A92AC in modul BlaBla. Lesen von adresse 000003CC
woran kann das denn liegen ??
Weiss keinen rat mehr...
Bin für infos dankbar...
Gruss Sascha