SQLite zur Laufzeit erstellen

[andone]

Hallo zusammen,

ohne die Komponenten TSQLite3Connection, TSQLQuery, TSQLTransaction auf ein Formular zu ziehen möchte ich diese zu Laufzeit erstellen:

Code: Alles auswählen

uses
  Classes, SysUtils,
  Sqlite3DS, db, sqlite3conn, sqldb;
 
type
  TpmSQL = class
    pmSQLcon   : TSQLite3Connection;
    pmSQLQuery : TSQLQuery;
    pmSQLTrans : TSQLTransaction;
    constructor Create;
    destructor Destroy;
  private
 
  public
 
  end;
 
 
 
Var
 
    pmSQL : TpmSQL;
 
implementation
 
constructor TpmSQL.Create;
begin
  inherited; //Create;
 
  pmSQL.pmSQLcon.Transaction   := pmSQL.pmSQLTrans;
  pmSQL.pmSQLQuery.Transaction := pmSQL.pmSQLTrans;
  pmSQL.pmSQLTrans.DataBase    := pmSQL.pmSQLcon;
  pmSQL.pmSQLQuery.DataBase    := pmSQL.pmSQLcon;
 
end;
 
destructor TpmSQL.Destroy;
begin
  // .....
  inherited;
end;   

Aufrufen tu ich das Ganze so:

Code: Alles auswählen

 
pmSQL := TpmSQL.Create;  
 

leider kommt die Meldung SIGSEV wenn ich Versuche die Parameter bei Create zu setzen.

Weiß jemand wie das gehen könnte ?

Gruß, andone

[m.fuchs]

Du greifst im Contructor direkt auf die Instanz pmSQL, das solltest du nicht.

Dann benutzt du pmSQLTrans, pmSQLQuery und pmSQLcon ohne dass diese vorher erzeugt wurden.

[mse]

Etwa so:

Code: Alles auswählen

 
unit main;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
uses
  Classes, SysUtils,
  Sqlite3DS, db, sqlite3conn, sqldb;
 
type
  TpmSQL = class
   public
    pmSQLcon   : TSQLite3Connection;
    pmSQLQuery : TSQLQuery;
    pmSQLTrans : TSQLTransaction;
    constructor Create;
    destructor Destroy; override;
  end;
 
 
 
Var
 
    pmSQL : TpmSQL;
 
implementation
 
constructor TpmSQL.Create;
begin
  inherited; //Create;
  pmSQLcon:= TSQLite3Connection.create(nil);
  pmSQLTrans:= TSQLTransaction.create(nil);
  pmSQLQuery:= TSQLQuery.create(nil);
  pmSQLcon.Transaction:= pmSQLTrans;
  pmSQLQuery.DataBase:= pmSQLcon;
 
end;
 
destructor TpmSQL.Destroy;
begin
  // .....
  inherited;
  pmSQLQuery.free();
  pmSQLTrans.free();
  pmSQLcon.free();
end;
 
end.
 

Ungeprüft!

[andone]

Ach so geht das, Danke

andone