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;