Hallo
ich habe folgendes Problem bei meinem Progamm soll der Pfad der Datenbank aus einer Ini Datei gelesen werden.
Beim ausführen bekomme ich aber die Meldung Zufriffsverletzung
mein Code sieht wie folgt aus
Delphi-Quellcode:
procedure TMainframe.FormCreate(Sender: TObject);
var ini: TIniFile;
Dir :
String;
begin
Mainframe.Entnahme.Hide;
// schliessen des Entnahmeframes
Mainframe.Lieferung.Hide;
// schliessen des Lieferungsframes
Mainframe.Dateneingabe.Hide;
// schliessen des Dateneingabeframes
Mainframe.Info.Hide;
// schliessen des Infoframes
// Laden des Datenbankpfads
ini := TInifile.Create(ExtractFilePath(ParamStr(0))+'
Konfiguration.ini');
try
Dir := ini.ReadString('
DB', '
Pfad', '
');
Tabellen.Verbindung.ConnectionString := Dir;
finally
ini.Free;
// öffnen aller Datenbankverbindungen
begin
if Fileexists (Dir)
then
begin
Tabellen.Verbindung.Connected := True;
Tabellen.Tab_Art.Active := True;
Tabellen.TAB_Lieferant.Active := True;
Tabellen.TAB_Ersatzteil.Active := True;
Tabellen.TAB_Lagerbestand.Active:= True;
Tabellen.TAB_Lieferung.Active := True;
end
else
begin
Showmessage('
INI Datei oder Datenbank nicht gefunden')
end;
end;
end;
end;
Die Adresse der Zugriffsverletzung ist 004B8716 im Modul
Weiß jemand Rat?
MCOP2001DE