#8 0.64 Bug - TSQLite.Create never called!

closed
René Tegel
None
7
2006-08-15
2006-06-26
Tim David Otto
No

There is a problem with TSQLite:

1. Everything is OK when you create TSQLite by code.
( Like: LiteDB := TSQLiteDB.Create(nil); )

2. When you drop the TSQLite Icon to the Form the
TSQLite.Create will not be called.

The real Problem: DB-Kind variable issn't assigned the
Escape function doesn't use SQLite Escape Functions.

Discussion

  • Tim David Otto
    Tim David Otto
    2006-06-26

    Logged In: YES
    user_id=1546220

    Solution in passqlite - would be nice to see this fixed... :)

    {...}
    public
    {...}
    constructor Create (AOwner:TComponent); overload; override;
    constructor Create (AOwner: TComponent; Database:
    String); reintroduce; overload;
    {...}
    constructor TLiteDB.Create(AOwner:TComponent);
    begin
    inherited Create(AOwner);
    showmessage('SQLite Create');
    PrimaryKey := 'primary key';
    FDataBaseType := dbSqlite;
    end;

    constructor TLiteDB.Create(AOwner: TComponent; Database:
    String);
    begin
    inherited Create(AOwner);
    PrimaryKey := 'primary key';
    FDataBaseType := dbSqlite;
    if DataBase<>'' then
    Use (DataBase);
    end;
    {...}

     
  • René Tegel
    René Tegel
    2006-08-15

    • assigned_to: nobody --> artee
     
  • René Tegel
    René Tegel
    2006-08-15

    • priority: 5 --> 7
     
  • René Tegel
    René Tegel
    2006-08-15

    Logged In: YES
    user_id=764063

    Good one, thanks.. (Indeed i never use it as droppable
    component so i missed this one).
    Changes are in cvs, will release new package soon.

     
  • René Tegel
    René Tegel
    2006-08-15

    • status: open --> closed