Klasse die mit DB verbindet erstellen?

[mkinzler]

Delphi-Quellcode:

constructor TSQLiteDB.Create;
begin
  inherited;

  SQLite3Connection := TSQLite3Connection.Create(nil);
  SQLTransaction := TSQLTransaction.Create(nil);
  SQLQuery := TSQLQuery.Create(nil);
end;

destructor TSQLiteDB.Destroy;
begin
  SQLite3Connection.Free;
  SQLTransaction.Free;
  SQLQuery.Free;

  inherited;
end;

[AlexII]

Aber muss ich irgendwo

Zitat:

"TSQLiteDB.Create;"

und

Zitat:

"TSQLiteDB.Destroy;"

manuell in der Anwendung aufrufen?

[mkinzler]

Ja oder in der Unit (initialization bzw. finalization)

[AlexII]

Zitat von mkinzler:

Ja oder in der Unit (initialization bzw. finalization)

Hm... in der Unit von der Form1, oder in meiner unit myobj?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SQLiteDB.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SQLiteDB.Destroy;
end;

Hier stürzt das Programm beim Schließen ab.

[mkinzler]

In der Unit, in welcher Du die Klasse deklarierst.

Btw. warum kein Datenmodul?

[AlexII]

Zitat von mkinzler:

In der Unit, in welcher Du die Klasse deklarierst.

Btw. warum kein Datenmodul?

Aber wie rufe ich es da auf bzw. wo? Da gibt's doch keine Methode dafür, und wenn ich dafür eine Procedure schreibe, was ruft wiederum diese Procedure auf? Was ist ein Datenmodul?

[mkinzler]

Der initialization Abschnitt einer Unit wird beim Laden der Unit ( Einbinden in uses einer anderen Unit) automatisch aufgerufen und der finalization Abschnitt beim Entladen (Programmende).

Ein Datenmodul ist ein spezielels Formular für nicht sichtbare Komponenten.