Hallo,
ich weiss jetzt woran es liegt, und zwar:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var savestat: TIniFile;
var verz: String;
begin
savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+'settings.ini');
try
CheckBox1.Checked:=savestat.ReadBool('Copper', 'Status', CheckBox1.Checked);
CheckBox2.Checked:=savestat.ReadBool('Modern', 'Status', CheckBox2.Checked);
CheckBox3.Checked:=savestat.ReadBool('Lime', 'Status', CheckBox3.Checked);
CheckBox4.Checked:=savestat.ReadBool('WinXP', 'Status', CheckBox4.Checked);
CheckBox5.Checked:=savestat.ReadBool('Hints', 'Status', CheckBox5.Checked);
finally
savestat.Free;
end;
verz := ExtractFilePath(ParamStr(0));
Table1.Active := False;
try
Table1.Databasename := verz;
Table1.TableName := 'jaab.db';
Table1.Active := True
except
MessageBeep(0);
ShowMessage('Die Tabelle "jaab.db" befindet' + #13#10 + ' sich nicht im aktuellen Verzeichnis!')
end;
end;
Genauer gesagt am ersten Teil, wenn ich den Ini-Part auskommentiere, kommt keine Fehlermeldung. Aber was ist falsch? So lese ich immer aus *.ini's, in fast jedem Programm und es kommt sonst nie so eine Fehlermeldung...