Hallo,
schau bitte mal in der Entwicklungsumgebung, ob Du irgendwelche Datenbankobjekte dort geöffnet hast (im Objektinspektor prüfen).
Wenn ja: Alles schließen und die entsprechenden Aufrufe für das Öffnen/Verbinden in das FormCreate packen.
Delphi-Quellcode:
procedure TMenue.FormCreate(Sender: TObject);
var
IniFile, log : TextFile;
zeile :
String;
label M10;
begin
// Damit hier nicht nur der letzte Fehler drinne steht, sondern ggfls. auch mehrere, bestenfalls alle ;-)
AssignFile(log,'
log.txt');
ReWrite(log);
//ini Datei einlesen
try
b_gestartet:=False;
if not b_gestartet
then
begin
AssignFile(IniFile,'
bilder.ini');
Reset(IniFile);
M10: ReadLn(IniFile,zeile);
if copy(zeile,1,6)='
[Pfad]'
then
ReadLn(IniFile,zeile)
else
goto M10;
StOrdner:=copy(zeile,1,Length(zeile));
b_Gestartet := True;
CloseFile(IniFile);
end;
except
on e :
Exception do begin
WriteLn(log,e.
Message);
// Damit Du sehen kannst, was für ein Fehler aufgetreten ist.
end;
end;
// Hier alle Datenbankkomponenten ihre Verbindungen aufbauen lassen und dann Tabellen, Abfragen... öffnen.
// Jeweils in etwa dieser Form:
Try
Connection1.Connected := True;
Except
on e :
Exception do begin
WriteLn(Log,Connection1.
Name + '
: ' + e.
Message);
end;
end;
Try
Table12345.Open
Except
on e :
Exception do begin
WriteLn(Log,Table12345.
Name + '
: ' + e.
Message);
end;
end;
...
CloseFile(log);
end;