Klasse die mit DB verbindet erstellen?

[AlexII]

Ok... ist es eigentlich ok, wenn ich das wie folgt mache? Muss ich dann "TSQLiteDB.Create;" und "TSQLiteDB.Destroy;" manuell aufrufen, oder geht das automatisch?

Bekomme noch diese Warnung, was heißt sich eigentlich?

Zitat:

Warning: An inherited method is hidden by "destructor TSQLiteDB.Destroy;"

Delphi-Quellcode:

  { TSQLiteDB }
  TSQLiteDB = class
    constructor Create;
    destructor Destroy;
    procedure Connect;
  end;

var
  SQLiteDB: TSQLiteDB;
  SQLite3Connection: TSQLite3Connection;
  SQLTransaction: TSQLTransaction;
  SQLQuery: TSQLQuery;

implementation

{ TSQLiteDB }

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

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

[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?