Einzelnen Beitrag anzeigen

MCOP2001DE

Registriert seit: 19. Jun 2004
89 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#1

Zugriffsverletzung beim ini laden

  Alt 30. Mär 2007, 01:11
Datenbank: Access • Version: 2003 • Zugriff über: ADO
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
  Mit Zitat antworten Zitat