tested sqlite3 in lazarus - linux..

working :)

updated requirements text with instructions on how to get
dev libraries for linux build.


git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@407 b956fd51-792f-4845-bead-9b4dfca2ff2c

3 files changed, 980 insertions, 986 deletions

diff --git a/Game/Code/lib/SQLite/SQLiteTable3.pas b/Game/Code/lib/SQLite/SQLiteTable3.pas
index e09cc7a0..05fbd573 100644
--- a/Game/Code/lib/SQLite/SQLiteTable3.pas
+++ b/Game/Code/lib/SQLite/SQLiteTable3.pas
@@ -1,765 +1,770 @@
-unit SQLiteTable3;

-

-{

-  Simple classes for using SQLite's exec and get_table.

-

-  TSQLiteDatabase wraps the calls to open and close an SQLite database.

-  It also wraps SQLite_exec for queries that do not return a result set

-

-  TSQLiteTable wraps sqlite_get_table.

-  It allows accessing fields by name as well as index and can step through a

-  result set with the Next procedure.

-

-  Adapted by Tim Anderson (tim@itwriting.com)

-  Originally created by Pablo Pissanetzky (pablo@myhtpc.net)

-  Modified and enhanced by Lukas Gebauer

-}

-

-interface

-

-{$IFDEF FPC}

- {$MODE Delphi}

-{$ENDIF}

-

-uses

-  Windows, SQLite3, Classes, SysUtils;

-

-const

-

-  dtInt = 1;

-  dtNumeric = 2;

-  dtStr = 3;

-  dtBlob = 4;

-  dtNull = 5;

-

-type

-

-  ESQLiteException = class(Exception)

-  end;

-

-  TSQLiteTable = class;

-

-  TSQLiteDatabase = class

-  private

-    fDB: TSQLiteDB;

-    fInTrans: boolean;

-    procedure RaiseError(s: string; SQL: string);

-  public

-    constructor Create(const FileName: string);

-    destructor Destroy; override;

-    function GetTable(const SQL: string): TSQLiteTable;

-    procedure ExecSQL(const SQL: string);

-    function GetTableValue(const SQL: string): int64;

-    function GetTableString(const SQL: string): string;

-    procedure UpdateBlob(const SQL: string; BlobData: TStream);

-    procedure BeginTransaction;

-    procedure Commit;

-    procedure Rollback;

-    function TableExists(TableName: string): boolean;

-    function GetLastInsertRowID: int64;

-    procedure SetTimeout(Value: integer);

-    function version: string;

-  published

-    property isTransactionOpen: boolean read fInTrans;

-  end;

-

-  TSQLiteTable = class

-  private

-    fResults: TList;

-    fRowCount: cardinal;

-    fColCount: cardinal;

-    fCols: TStringList;

-    fColTypes: TList;

-    fRow: cardinal;

-    function GetFields(I: cardinal): string;

-    function GetEOF: boolean;

-    function GetBOF: boolean;

-    function GetColumns(I: integer): string;

-    function GetFieldByName(FieldName: string): string;

-    function GetFieldIndex(FieldName: string): integer;

-    function GetCount: integer;

-    function GetCountResult: integer;

-  public

-    constructor Create(DB: TSQLiteDatabase; const SQL: string);

-    destructor Destroy; override;

-    function FieldAsInteger(I: cardinal): int64;

-    function FieldAsBlob(I: cardinal): TMemoryStream;

-    function FieldAsBlobText(I: cardinal): string;

-    function FieldIsNull(I: cardinal): boolean;

-    function FieldAsString(I: cardinal): string;

-    function FieldAsDouble(I: cardinal): double;

-    function Next: boolean;

-    function Previous: boolean;

-    property EOF: boolean read GetEOF;

-    property BOF: boolean read GetBOF;

-    property Fields[I: cardinal]: string read GetFields;

-    property FieldByName[FieldName: string]: string read GetFieldByName;

-    property FieldIndex[FieldName: string]: integer read GetFieldIndex;

-    property Columns[I: integer]: string read GetColumns;

-    property ColCount: cardinal read fColCount;

-    property RowCount: cardinal read fRowCount;

-    property Row: cardinal read fRow;

-    function MoveFirst: boolean;

-    function MoveLast: boolean;

-    property Count: integer read GetCount;

-    // The property CountResult is used when you execute count(*) queries.

-    // It returns 0 if the result set is empty or the value of the

-    // first field as an integer.

-    property CountResult: integer read GetCountResult;

-  end;

-

-procedure DisposePointer(ptr: pointer); cdecl;

-

-

-implementation

-

-procedure DisposePointer(ptr: pointer); cdecl;

-begin

-  if assigned(ptr) then

-    freemem(ptr);

-end;

-

-//------------------------------------------------------------------------------

-// TSQLiteDatabase

-//------------------------------------------------------------------------------

-

-constructor TSQLiteDatabase.Create(const FileName: string);

-var

-  Msg: pchar;

-  iResult: integer;

-begin

-  inherited Create;

-

-  self.fInTrans := False;

-

-  Msg := nil;

-  try

-    iResult := SQLite3_Open(PChar(FileName), Fdb);

-

-    if iResult <> SQLITE_OK then

-      if Assigned(Fdb) then

-      begin

-        Msg := Sqlite3_ErrMsg(Fdb);

-        raise ESqliteException.CreateFmt('Failed to open database "%s" : %s',

-          [FileName, Msg]);

-      end

-      else

-        raise ESqliteException.CreateFmt('Failed to open database "%s" : unknown error',

-          [FileName]);

-

-    //set a few configs

-    self.ExecSQL('PRAGMA SYNCHRONOUS=NORMAL;');

-//    self.ExecSQL('PRAGMA full_column_names = 1;');

-    self.ExecSQL('PRAGMA temp_store = MEMORY;');

-

-  finally

-    if Assigned(Msg) then

-      SQLite3_Free(Msg);

-  end;

-

-end;

-

-

-//..............................................................................

-

-destructor TSQLiteDatabase.Destroy;

-begin

-

-  if self.fInTrans then

-    self.ExecSQL('ROLLBACK;'); //assume rollback

-

-  if Assigned(fDB) then

-    SQLite3_Close(fDB);

-

-  inherited;

-end;

-

-function TSQLiteDatabase.GetLastInsertRowID: int64;

-begin

-  Result := Sqlite3_LastInsertRowID(self.fDB);

-end;

-

-//..............................................................................

-

-procedure TSQLiteDatabase.RaiseError(s: string; SQL: string);

-//look up last error and raise an exception with an appropriate message

-var

-  Msg: PChar;

-begin

-

-  Msg := nil;

-

-  if sqlite3_errcode(self.fDB) <> SQLITE_OK then

-    Msg := sqlite3_errmsg(self.fDB);

-

-  if Msg <> nil then

-    raise ESqliteException.CreateFmt(s + ' "%s" : %s', [SQL, Msg])

-  else

-    raise ESqliteException.CreateFmt(s, [SQL, 'No message']);

-

-end;

-

-procedure TSQLiteDatabase.ExecSQL(const SQL: string);

-var

-  Stmt: TSQLiteStmt;

-  NextSQLStatement: Pchar;

-  iStepResult: integer;

-begin

-  try

-

-    if Sqlite3_Prepare(self.fDB, PChar(SQL), -1, Stmt, NextSQLStatement) <>

-      SQLITE_OK then

-      RaiseError('Error executing SQL', SQL);

-

-    if (Stmt = nil) then

-      RaiseError('Could not prepare SQL statement', SQL);

-

-    iStepResult := Sqlite3_step(Stmt);

-

-    if (iStepResult <> SQLITE_DONE) then

-      RaiseError('Error executing SQL statement', SQL);

-

-  finally

-

-    if Assigned(Stmt) then

-      Sqlite3_Finalize(stmt);

-

-  end;

-end;

-

-procedure TSQLiteDatabase.UpdateBlob(const SQL: string; BlobData: TStream);

-var

-  iSize: integer;

-  ptr: pointer;

-  Stmt: TSQLiteStmt;

-  Msg: Pchar;

-  NextSQLStatement: Pchar;

-  iStepResult: integer;

-  iBindResult: integer;

-begin

-  //expects SQL of the form 'UPDATE MYTABLE SET MYFIELD = ? WHERE MYKEY = 1'

-

-  if pos('?', SQL) = 0 then

-    RaiseError('SQL must include a ? parameter', SQL);

-

-  Msg := nil;

-  try

-

-    if Sqlite3_Prepare(self.fDB, PChar(SQL), -1, Stmt, NextSQLStatement) <>

-      SQLITE_OK then

-      RaiseError('Could not prepare SQL statement', SQL);

-

-    if (Stmt = nil) then

-      RaiseError('Could not prepare SQL statement', SQL);

-

-    //now bind the blob data

-    iSize := BlobData.size;

-

-    GetMem(ptr, iSize);

-

-    if (ptr = nil) then

-      raise ESqliteException.CreateFmt('Error getting memory to save blob',

-        [SQL, 'Error']);

-

-    BlobData.position := 0;

-    BlobData.Read(ptr^, iSize);

-

-    iBindResult := SQLite3_BindBlob(stmt, 1, ptr, iSize, @DisposePointer);

-

-    if iBindResult <> SQLITE_OK then

-      RaiseError('Error binding blob to database', SQL);

-

-    iStepResult := Sqlite3_step(Stmt);

-

-    if (iStepResult <> SQLITE_DONE) then

-      RaiseError('Error executing SQL statement', SQL);

-

-  finally

-

-    if Assigned(Stmt) then

-      Sqlite3_Finalize(stmt);

-

-    if Assigned(Msg) then

-      SQLite3_Free(Msg);

-  end;

-

-end;

-

-//..............................................................................

-

-function TSQLiteDatabase.GetTable(const SQL: string): TSQLiteTable;

-begin

-  Result := TSQLiteTable.Create(Self, SQL);

-end;

-

-function TSQLiteDatabase.GetTableValue(const SQL: string): int64;

-var

-  Table: TSQLiteTable;

-begin

-  Table := self.GetTable(SQL);

-  try

-    Result := Table.FieldAsInteger(0);

-  finally

-    Table.Free;

-  end;

-end;

-

-function TSQLiteDatabase.GetTableString(const SQL: string): string;

-var

-  Table: TSQLiteTable;

-begin

-  Table := self.GetTable(SQL);

-  try

-    Result := Table.FieldAsString(0);

-  finally

-    Table.Free;

-  end;

-end;

-

-

-procedure TSQLiteDatabase.BeginTransaction;

-begin

-  if not self.fInTrans then

-  begin

-    self.ExecSQL('BEGIN TRANSACTION;');

-    self.fInTrans := True;

-  end

-  else

-    raise ESqliteException.Create('Transaction already open');

-end;

-

-procedure TSQLiteDatabase.Commit;

-begin

-  self.ExecSQL('COMMIT;');

-  self.fInTrans := False;

-end;

-

-procedure TSQLiteDatabase.Rollback;

-begin

-  self.ExecSQL('ROLLBACK;');

-  self.fInTrans := False;

-end;

-

-function TSQLiteDatabase.TableExists(TableName: string): boolean;

-var

-  sql: string;

-  ds: TSqliteTable;

-begin

-  //returns true if table exists in the database

-  sql := 'select [sql] from sqlite_master where [type] = ''table'' and lower(name) = ''' +

-    lowercase(TableName) + ''' ';

-  ds := self.GetTable(sql);

-  try

-    Result := (ds.Count > 0);

-  finally

-    ds.Free;

-  end;

-end;

-

-procedure TSQLiteDatabase.SetTimeout(Value: integer);

-begin

-  SQLite3_BusyTimeout(self.fDB, Value);

-end;

-

-function TSQLiteDatabase.version: string;

-begin

-  Result := SQLite3_Version;

-end;

-

-

-//------------------------------------------------------------------------------

-// TSQLiteTable

-//------------------------------------------------------------------------------

-

-constructor TSQLiteTable.Create(DB: TSQLiteDatabase; const SQL: string);

-var

-  Stmt: TSQLiteStmt;

-  NextSQLStatement: Pchar;

-  iStepResult: integer;

-  ptr: pointer;

-  iNumBytes: integer;

-  thisBlobValue: TMemoryStream;

-  thisStringValue: pstring;

-  thisDoubleValue: pDouble;

-  thisIntValue: pInt64;

-  thisColType: pInteger;

-  i: integer;

-  DeclaredColType: Pchar;

-  ActualColType: integer;

-  ptrValue: Pchar;

-begin

-  try

-    self.fRowCount := 0;

-    self.fColCount := 0;

-    //if there are several SQL statements in SQL, NextSQLStatment points to the

-    //beginning of the next one. Prepare only prepares the first SQL statement.

-    if Sqlite3_Prepare(DB.fDB, PChar(SQL), -1, Stmt, NextSQLStatement) <> SQLITE_OK then

-      DB.RaiseError('Error executing SQL', SQL);

-    if (Stmt = nil) then

-      DB.RaiseError('Could not prepare SQL statement', SQL);

-    iStepResult := Sqlite3_step(Stmt);

-    while (iStepResult <> SQLITE_DONE) do

-    begin

-      case iStepResult of

-        SQLITE_ROW:

-          begin

-            Inc(fRowCount);

-            if (fRowCount = 1) then

-            begin

-            //get data types

-              fCols := TStringList.Create;

-              fColTypes := TList.Create;

-              fColCount := SQLite3_ColumnCount(stmt);

-              for i := 0 to Pred(fColCount) do

-                fCols.Add(AnsiUpperCase(Sqlite3_ColumnName(stmt, i)));

-              for i := 0 to Pred(fColCount) do

-              begin

-                new(thisColType);

-                DeclaredColType := Sqlite3_ColumnDeclType(stmt, i);

-                if DeclaredColType = nil then

-                  thisColType^ := Sqlite3_ColumnType(stmt, i) //use the actual column type instead

-                //seems to be needed for last_insert_rowid

-                else

-                  if (DeclaredColType = 'INTEGER') or (DeclaredColType = 'BOOLEAN') then

-                    thisColType^ := dtInt

-                  else

-                    if (DeclaredColType = 'NUMERIC') or

-                      (DeclaredColType = 'FLOAT') or

-                      (DeclaredColType = 'DOUBLE') or

-                      (DeclaredColType = 'REAL') then

-                      thisColType^ := dtNumeric

-                    else

-                      if DeclaredColType = 'BLOB' then

-                        thisColType^ := dtBlob

-                      else

-                        thisColType^ := dtStr;

-                fColTypes.Add(thiscoltype);

-              end;

-              fResults := TList.Create;

-            end;

-

-          //get column values

-            for i := 0 to Pred(ColCount) do

-            begin

-              ActualColType := Sqlite3_ColumnType(stmt, i);

-              if (ActualColType = SQLITE_NULL) then

-                fResults.Add(nil)

-              else

-                if pInteger(fColTypes[i])^ = dtInt then

-                begin

-                  new(thisintvalue);

-                  thisintvalue^ := Sqlite3_ColumnInt64(stmt, i);

-                  fResults.Add(thisintvalue);

-                end

-                else

-                  if pInteger(fColTypes[i])^ = dtNumeric then

-                  begin

-                    new(thisdoublevalue);

-                    thisdoublevalue^ := Sqlite3_ColumnDouble(stmt, i);

-                    fResults.Add(thisdoublevalue);

-                  end

-                  else

-                    if pInteger(fColTypes[i])^ = dtBlob then

-                    begin

-                      iNumBytes := Sqlite3_ColumnBytes(stmt, i);

-                      if iNumBytes = 0 then

-                        thisblobvalue := nil

-                      else

-                      begin

-                        thisblobvalue := TMemoryStream.Create;

-                        thisblobvalue.position := 0;

-                        ptr := Sqlite3_ColumnBlob(stmt, i);

-                        thisblobvalue.writebuffer(ptr^, iNumBytes);

-                      end;

-                      fResults.Add(thisblobvalue);

-                    end

-                    else

-                    begin

-                      new(thisstringvalue);

-                      ptrValue := Sqlite3_ColumnText(stmt, i);

-                      setstring(thisstringvalue^, ptrvalue, strlen(ptrvalue));

-                      fResults.Add(thisstringvalue);

-                    end;

-            end;

-          end;

-        SQLITE_BUSY:

-          raise ESqliteException.CreateFmt('Could not prepare SQL statement',

-            [SQL, 'SQLite is Busy']);

-      else

-        DB.RaiseError('Could not retrieve data', SQL);

-      end;

-      iStepResult := Sqlite3_step(Stmt);

-    end;

-    fRow := 0;

-  finally

-    if Assigned(Stmt) then

-      Sqlite3_Finalize(stmt);

-  end;

-end;

-

-//..............................................................................

-

-destructor TSQLiteTable.Destroy;

-var

-  i: cardinal;

-  iColNo: integer;

-begin

-  if Assigned(fResults) then

-  begin

-    for i := 0 to fResults.Count - 1 do

-    begin

-      //check for blob type

-      iColNo := (i mod fColCount);

-      case pInteger(self.fColTypes[iColNo])^ of

-        dtBlob:

-          TMemoryStream(fResults[i]).Free;

-        dtStr:

-          if fResults[i] <> nil then

-          begin

-            setstring(string(fResults[i]^), nil, 0);

-            dispose(fResults[i]);

-          end;

-      else

-        dispose(fResults[i]);

-      end;

-    end;

-    fResults.Free;

-  end;

-  if Assigned(fCols) then

-    fCols.Free;

-  if Assigned(fColTypes) then

-    for i := 0 to fColTypes.Count - 1 do

-      dispose(fColTypes[i]);

-  fColTypes.Free;

-  inherited;

-end;

-

-//..............................................................................

-

-function TSQLiteTable.GetColumns(I: integer): string;

-begin

-  Result := fCols[I];

-end;

-

-//..............................................................................

-

-function TSQLiteTable.GetCountResult: integer;

-begin

-  if not EOF then

-    Result := StrToInt(Fields[0])

-  else

-    Result := 0;

-end;

-

-function TSQLiteTable.GetCount: integer;

-begin

-  Result := FRowCount;

-end;

-

-//..............................................................................

-

-function TSQLiteTable.GetEOF: boolean;

-begin

-  Result := fRow >= fRowCount;

-end;

-

-function TSQLiteTable.GetBOF: boolean;

-begin

-  Result := fRow <= 0;

-end;

-

-//..............................................................................

-

-function TSQLiteTable.GetFieldByName(FieldName: string): string;

-begin

-  Result := GetFields(self.GetFieldIndex(FieldName));

-end;

-

-function TSQLiteTable.GetFieldIndex(FieldName: string): integer;

-begin

-

-  if (fCols = nil) then

-  begin

-    raise ESqliteException.Create('Field ' + fieldname + ' Not found. Empty dataset');

-    exit;

-  end;

-

-  if (fCols.count = 0) then

-  begin

-    raise ESqliteException.Create('Field ' + fieldname + ' Not found. Empty dataset');

-    exit;

-  end;

-

-  Result := fCols.IndexOf(AnsiUpperCase(FieldName));

-

-  if (result < 0) then

-  begin raise ESqliteException.Create('Field not found in dataset: ' + fieldname) end;

-

-end;

-

-//..............................................................................

-

-function TSQLiteTable.GetFields(I: cardinal): string;

-var

-  thisvalue: pstring;

-  thistype: integer;

-begin

-  Result := '';

-  if EOF then

-    raise ESqliteException.Create('Table is at End of File');

-  //integer types are not stored in the resultset

-  //as strings, so they should be retrieved using the type-specific

-  //methods

-  thistype := pInteger(self.fColTypes[I])^;

-

-  case thistype of

-    dtStr:

-      begin

-        thisvalue := self.fResults[(self.frow * self.fColCount) + I];

-        if (thisvalue <> nil) then

-          Result := thisvalue^

-        else

-          Result := '';

-      end;

-    dtInt:

-      Result := IntToStr(self.FieldAsInteger(I));

-    dtNumeric:

-      Result := FloatToStr(self.FieldAsDouble(I));

-    dtBlob:

-      Result := self.FieldAsBlobText(I);

-  else

-    Result := '';

-  end;

-end;

-

-function TSqliteTable.FieldAsBlob(I: cardinal): TMemoryStream;

-begin

-  if EOF then

-    raise ESqliteException.Create('Table is at End of File');

-  if (self.fResults[(self.frow * self.fColCount) + I] = nil) then

-    Result := nil

-  else

-    if pInteger(self.fColTypes[I])^ = dtBlob then

-      Result := TMemoryStream(self.fResults[(self.frow * self.fColCount) + I])

-    else

-      raise ESqliteException.Create('Not a Blob field');

-end;

-

-function TSqliteTable.FieldAsBlobText(I: cardinal): string;

-var

-  MemStream: TMemoryStream;

-  Buffer: PChar;

-begin

-  Result := '';

-  MemStream := self.FieldAsBlob(I);

-  if MemStream <> nil then

-    if MemStream.Size > 0 then

-    begin

-      MemStream.position := 0;

-      Buffer := stralloc(MemStream.Size + 1);

-      MemStream.readbuffer(Buffer[0], MemStream.Size);

-      (Buffer + MemStream.Size)^ := chr(0);

-      SetString(Result, Buffer, MemStream.size);

-      strdispose(Buffer);

-    end;

-end;

-

-

-function TSqliteTable.FieldAsInteger(I: cardinal): int64;

-begin

-  if EOF then

-    //raise ESqliteException.Create('Table is at End of File');

-    Result := 0

-  else if (self.fResults[(self.frow * self.fColCount) + I] = nil) then

-    Result := 0

-  else

-    if pInteger(self.fColTypes[I])^ = dtInt then

-      Result := pInt64(self.fResults[(self.frow * self.fColCount) + I])^

-    else

-      if pInteger(self.fColTypes[I])^ = dtNumeric then

-        Result := trunc(strtofloat(pString(self.fResults[(self.frow * self.fColCount) + I])^))

-      else

-        raise ESqliteException.Create('Not an integer or numeric field');

-end;

-

-function TSqliteTable.FieldAsDouble(I: cardinal): double;

-begin

-  if EOF then

-    raise ESqliteException.Create('Table is at End of File');

-  if (self.fResults[(self.frow * self.fColCount) + I] = nil) then

-    Result := 0

-  else

-    if pInteger(self.fColTypes[I])^ = dtInt then

-      Result := pInt64(self.fResults[(self.frow * self.fColCount) + I])^

-    else

-      if pInteger(self.fColTypes[I])^ = dtNumeric then

-        Result := pDouble(self.fResults[(self.frow * self.fColCount) + I])^

-      else

-        raise ESqliteException.Create('Not an integer or numeric field');

-end;

-

-function TSqliteTable.FieldAsString(I: cardinal): string;

-begin

-  if EOF then

-    raise ESqliteException.Create('Table is at End of File');

-  if (self.fResults[(self.frow * self.fColCount) + I] = nil) then

-    Result := ''

-  else

-    Result := self.GetFields(I);

-end;

-

-function TSqliteTable.FieldIsNull(I: cardinal): boolean;

-var

-  thisvalue: pointer;

-begin

-  if EOF then

-    raise ESqliteException.Create('Table is at End of File');

-  thisvalue := self.fResults[(self.frow * self.fColCount) + I];

-  Result := (thisvalue = nil);

-end;

-

-//..............................................................................

-

-function TSQLiteTable.Next: boolean;

-begin

-  Result := False;

-  if not EOF then

-  begin

-    Inc(fRow);

-    Result := True;

-  end;

-end;

-

-function TSQLiteTable.Previous: boolean;

-begin

-  Result := False;

-  if not BOF then

-  begin

-    Dec(fRow);

-    Result := True;

-  end;

-end;

-

-function TSQLiteTable.MoveFirst: boolean;

-begin

-  Result := False;

-  if self.fRowCount > 0 then

-  begin

-    fRow := 0;

-    Result := True;

-  end;

-end;

-

-function TSQLiteTable.MoveLast: boolean;

-begin

-  Result := False;

-  if self.fRowCount > 0 then

-  begin

-    fRow := fRowCount - 1;

-    Result := True;

-  end;

-end;

-

-

-end.

-

+unit SQLiteTable3;
+
+{
+  Simple classes for using SQLite's exec and get_table.
+
+  TSQLiteDatabase wraps the calls to open and close an SQLite database.
+  It also wraps SQLite_exec for queries that do not return a result set
+
+  TSQLiteTable wraps sqlite_get_table.
+  It allows accessing fields by name as well as index and can step through a
+  result set with the Next procedure.
+
+  Adapted by Tim Anderson (tim@itwriting.com)
+  Originally created by Pablo Pissanetzky (pablo@myhtpc.net)
+  Modified and enhanced by Lukas Gebauer
+}
+
+interface
+
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
+uses
+  {$ifdef win32}
+  Windows,
+  {$endif}
+  SQLite3,
+  Classes,
+  SysUtils;
+
+const
+
+  dtInt = 1;
+  dtNumeric = 2;
+  dtStr = 3;
+  dtBlob = 4;
+  dtNull = 5;
+
+type
+
+  ESQLiteException = class(Exception)
+  end;
+
+  TSQLiteTable = class;
+
+  TSQLiteDatabase = class
+  private
+    fDB: TSQLiteDB;
+    fInTrans: boolean;
+    procedure RaiseError(s: string; SQL: string);
+  public
+    constructor Create(const FileName: string);
+    destructor Destroy; override;
+    function GetTable(const SQL: string): TSQLiteTable;
+    procedure ExecSQL(const SQL: string);
+    function GetTableValue(const SQL: string): int64;
+    function GetTableString(const SQL: string): string;
+    procedure UpdateBlob(const SQL: string; BlobData: TStream);
+    procedure BeginTransaction;
+    procedure Commit;
+    procedure Rollback;
+    function TableExists(TableName: string): boolean;
+    function GetLastInsertRowID: int64;
+    procedure SetTimeout(Value: integer);
+    function version: string;
+  published
+    property isTransactionOpen: boolean read fInTrans;
+  end;
+
+  TSQLiteTable = class
+  private
+    fResults: TList;
+    fRowCount: cardinal;
+    fColCount: cardinal;
+    fCols: TStringList;
+    fColTypes: TList;
+    fRow: cardinal;
+    function GetFields(I: cardinal): string;
+    function GetEOF: boolean;
+    function GetBOF: boolean;
+    function GetColumns(I: integer): string;
+    function GetFieldByName(FieldName: string): string;
+    function GetFieldIndex(FieldName: string): integer;
+    function GetCount: integer;
+    function GetCountResult: integer;
+  public
+    constructor Create(DB: TSQLiteDatabase; const SQL: string);
+    destructor Destroy; override;
+    function FieldAsInteger(I: cardinal): int64;
+    function FieldAsBlob(I: cardinal): TMemoryStream;
+    function FieldAsBlobText(I: cardinal): string;
+    function FieldIsNull(I: cardinal): boolean;
+    function FieldAsString(I: cardinal): string;
+    function FieldAsDouble(I: cardinal): double;
+    function Next: boolean;
+    function Previous: boolean;
+    property EOF: boolean read GetEOF;
+    property BOF: boolean read GetBOF;
+    property Fields[I: cardinal]: string read GetFields;
+    property FieldByName[FieldName: string]: string read GetFieldByName;
+    property FieldIndex[FieldName: string]: integer read GetFieldIndex;
+    property Columns[I: integer]: string read GetColumns;
+    property ColCount: cardinal read fColCount;
+    property RowCount: cardinal read fRowCount;
+    property Row: cardinal read fRow;
+    function MoveFirst: boolean;
+    function MoveLast: boolean;
+    property Count: integer read GetCount;
+    // The property CountResult is used when you execute count(*) queries.
+    // It returns 0 if the result set is empty or the value of the
+    // first field as an integer.
+    property CountResult: integer read GetCountResult;
+  end;
+
+procedure DisposePointer(ptr: pointer); cdecl;
+
+
+implementation
+
+procedure DisposePointer(ptr: pointer); cdecl;
+begin
+  if assigned(ptr) then
+    freemem(ptr);
+end;
+
+//------------------------------------------------------------------------------
+// TSQLiteDatabase
+//------------------------------------------------------------------------------
+
+constructor TSQLiteDatabase.Create(const FileName: string);
+var
+  Msg: pchar;
+  iResult: integer;
+begin
+  inherited Create;
+
+  self.fInTrans := False;
+
+  Msg := nil;
+  try
+    iResult := SQLite3_Open(PChar(FileName), Fdb);
+
+    if iResult <> SQLITE_OK then
+      if Assigned(Fdb) then
+      begin
+        Msg := Sqlite3_ErrMsg(Fdb);
+        raise ESqliteException.CreateFmt('Failed to open database "%s" : %s',
+          [FileName, Msg]);
+      end
+      else
+        raise ESqliteException.CreateFmt('Failed to open database "%s" : unknown error',
+          [FileName]);
+
+    //set a few configs
+    self.ExecSQL('PRAGMA SYNCHRONOUS=NORMAL;');
+//    self.ExecSQL('PRAGMA full_column_names = 1;');
+    self.ExecSQL('PRAGMA temp_store = MEMORY;');
+
+  finally
+    if Assigned(Msg) then
+      SQLite3_Free(Msg);
+  end;
+
+end;
+
+
+//..............................................................................
+
+destructor TSQLiteDatabase.Destroy;
+begin
+
+  if self.fInTrans then
+    self.ExecSQL('ROLLBACK;'); //assume rollback
+
+  if Assigned(fDB) then
+    SQLite3_Close(fDB);
+
+  inherited;
+end;
+
+function TSQLiteDatabase.GetLastInsertRowID: int64;
+begin
+  Result := Sqlite3_LastInsertRowID(self.fDB);
+end;
+
+//..............................................................................
+
+procedure TSQLiteDatabase.RaiseError(s: string; SQL: string);
+//look up last error and raise an exception with an appropriate message
+var
+  Msg: PChar;
+begin
+
+  Msg := nil;
+
+  if sqlite3_errcode(self.fDB) <> SQLITE_OK then
+    Msg := sqlite3_errmsg(self.fDB);
+
+  if Msg <> nil then
+    raise ESqliteException.CreateFmt(s + ' "%s" : %s', [SQL, Msg])
+  else
+    raise ESqliteException.CreateFmt(s, [SQL, 'No message']);
+
+end;
+
+procedure TSQLiteDatabase.ExecSQL(const SQL: string);
+var
+  Stmt: TSQLiteStmt;
+  NextSQLStatement: Pchar;
+  iStepResult: integer;
+begin
+  try
+
+    if Sqlite3_Prepare(self.fDB, PChar(SQL), -1, Stmt, NextSQLStatement) <>
+      SQLITE_OK then
+      RaiseError('Error executing SQL', SQL);
+
+    if (Stmt = nil) then
+      RaiseError('Could not prepare SQL statement', SQL);
+
+    iStepResult := Sqlite3_step(Stmt);
+
+    if (iStepResult <> SQLITE_DONE) then
+      RaiseError('Error executing SQL statement', SQL);
+
+  finally
+
+    if Assigned(Stmt) then
+      Sqlite3_Finalize(stmt);
+
+  end;
+end;
+
+procedure TSQLiteDatabase.UpdateBlob(const SQL: string; BlobData: TStream);
+var
+  iSize: integer;
+  ptr: pointer;
+  Stmt: TSQLiteStmt;
+  Msg: Pchar;
+  NextSQLStatement: Pchar;
+  iStepResult: integer;
+  iBindResult: integer;
+begin
+  //expects SQL of the form 'UPDATE MYTABLE SET MYFIELD = ? WHERE MYKEY = 1'
+
+  if pos('?', SQL) = 0 then
+    RaiseError('SQL must include a ? parameter', SQL);
+
+  Msg := nil;
+  try
+
+    if Sqlite3_Prepare(self.fDB, PChar(SQL), -1, Stmt, NextSQLStatement) <>
+      SQLITE_OK then
+      RaiseError('Could not prepare SQL statement', SQL);
+
+    if (Stmt = nil) then
+      RaiseError('Could not prepare SQL statement', SQL);
+
+    //now bind the blob data
+    iSize := BlobData.size;
+
+    GetMem(ptr, iSize);
+
+    if (ptr = nil) then
+      raise ESqliteException.CreateFmt('Error getting memory to save blob',
+        [SQL, 'Error']);
+
+    BlobData.position := 0;
+    BlobData.Read(ptr^, iSize);
+
+    iBindResult := SQLite3_BindBlob(stmt, 1, ptr, iSize, @DisposePointer);
+
+    if iBindResult <> SQLITE_OK then
+      RaiseError('Error binding blob to database', SQL);
+
+    iStepResult := Sqlite3_step(Stmt);
+
+    if (iStepResult <> SQLITE_DONE) then
+      RaiseError('Error executing SQL statement', SQL);
+
+  finally
+
+    if Assigned(Stmt) then
+      Sqlite3_Finalize(stmt);
+
+    if Assigned(Msg) then
+      SQLite3_Free(Msg);
+  end;
+
+end;
+
+//..............................................................................
+
+function TSQLiteDatabase.GetTable(const SQL: string): TSQLiteTable;
+begin
+  Result := TSQLiteTable.Create(Self, SQL);
+end;
+
+function TSQLiteDatabase.GetTableValue(const SQL: string): int64;
+var
+  Table: TSQLiteTable;
+begin
+  Table := self.GetTable(SQL);
+  try
+    Result := Table.FieldAsInteger(0);
+  finally
+    Table.Free;
+  end;
+end;
+
+function TSQLiteDatabase.GetTableString(const SQL: string): string;
+var
+  Table: TSQLiteTable;
+begin
+  Table := self.GetTable(SQL);
+  try
+    Result := Table.FieldAsString(0);
+  finally
+    Table.Free;
+  end;
+end;
+
+
+procedure TSQLiteDatabase.BeginTransaction;
+begin
+  if not self.fInTrans then
+  begin
+    self.ExecSQL('BEGIN TRANSACTION;');
+    self.fInTrans := True;
+  end
+  else
+    raise ESqliteException.Create('Transaction already open');
+end;
+
+procedure TSQLiteDatabase.Commit;
+begin
+  self.ExecSQL('COMMIT;');
+  self.fInTrans := False;
+end;
+
+procedure TSQLiteDatabase.Rollback;
+begin
+  self.ExecSQL('ROLLBACK;');
+  self.fInTrans := False;
+end;
+
+function TSQLiteDatabase.TableExists(TableName: string): boolean;
+var
+  sql: string;
+  ds: TSqliteTable;
+begin
+  //returns true if table exists in the database
+  sql := 'select [sql] from sqlite_master where [type] = ''table'' and lower(name) = ''' +
+    lowercase(TableName) + ''' ';
+  ds := self.GetTable(sql);
+  try
+    Result := (ds.Count > 0);
+  finally
+    ds.Free;
+  end;
+end;
+
+procedure TSQLiteDatabase.SetTimeout(Value: integer);
+begin
+  SQLite3_BusyTimeout(self.fDB, Value);
+end;
+
+function TSQLiteDatabase.version: string;
+begin
+  Result := SQLite3_Version;
+end;
+
+
+//------------------------------------------------------------------------------
+// TSQLiteTable
+//------------------------------------------------------------------------------
+
+constructor TSQLiteTable.Create(DB: TSQLiteDatabase; const SQL: string);
+var
+  Stmt: TSQLiteStmt;
+  NextSQLStatement: Pchar;
+  iStepResult: integer;
+  ptr: pointer;
+  iNumBytes: integer;
+  thisBlobValue: TMemoryStream;
+  thisStringValue: pstring;
+  thisDoubleValue: pDouble;
+  thisIntValue: pInt64;
+  thisColType: pInteger;
+  i: integer;
+  DeclaredColType: Pchar;
+  ActualColType: integer;
+  ptrValue: Pchar;
+begin
+  try
+    self.fRowCount := 0;
+    self.fColCount := 0;
+    //if there are several SQL statements in SQL, NextSQLStatment points to the
+    //beginning of the next one. Prepare only prepares the first SQL statement.
+    if Sqlite3_Prepare(DB.fDB, PChar(SQL), -1, Stmt, NextSQLStatement) <> SQLITE_OK then
+      DB.RaiseError('Error executing SQL', SQL);
+    if (Stmt = nil) then
+      DB.RaiseError('Could not prepare SQL statement', SQL);
+    iStepResult := Sqlite3_step(Stmt);
+    while (iStepResult <> SQLITE_DONE) do
+    begin
+      case iStepResult of
+        SQLITE_ROW:
+          begin
+            Inc(fRowCount);
+            if (fRowCount = 1) then
+            begin
+            //get data types
+              fCols := TStringList.Create;
+              fColTypes := TList.Create;
+              fColCount := SQLite3_ColumnCount(stmt);
+              for i := 0 to Pred(fColCount) do
+                fCols.Add(AnsiUpperCase(Sqlite3_ColumnName(stmt, i)));
+              for i := 0 to Pred(fColCount) do
+              begin
+                new(thisColType);
+                DeclaredColType := Sqlite3_ColumnDeclType(stmt, i);
+                if DeclaredColType = nil then
+                  thisColType^ := Sqlite3_ColumnType(stmt, i) //use the actual column type instead
+                //seems to be needed for last_insert_rowid
+                else
+                  if (DeclaredColType = 'INTEGER') or (DeclaredColType = 'BOOLEAN') then
+                    thisColType^ := dtInt
+                  else
+                    if (DeclaredColType = 'NUMERIC') or
+                      (DeclaredColType = 'FLOAT') or
+                      (DeclaredColType = 'DOUBLE') or
+                      (DeclaredColType = 'REAL') then
+                      thisColType^ := dtNumeric
+                    else
+                      if DeclaredColType = 'BLOB' then
+                        thisColType^ := dtBlob
+                      else
+                        thisColType^ := dtStr;
+                fColTypes.Add(thiscoltype);
+              end;
+              fResults := TList.Create;
+            end;
+
+          //get column values
+            for i := 0 to Pred(ColCount) do
+            begin
+              ActualColType := Sqlite3_ColumnType(stmt, i);
+              if (ActualColType = SQLITE_NULL) then
+                fResults.Add(nil)
+              else
+                if pInteger(fColTypes[i])^ = dtInt then
+                begin
+                  new(thisintvalue);
+                  thisintvalue^ := Sqlite3_ColumnInt64(stmt, i);
+                  fResults.Add(thisintvalue);
+                end
+                else
+                  if pInteger(fColTypes[i])^ = dtNumeric then
+                  begin
+                    new(thisdoublevalue);
+                    thisdoublevalue^ := Sqlite3_ColumnDouble(stmt, i);
+                    fResults.Add(thisdoublevalue);
+                  end
+                  else
+                    if pInteger(fColTypes[i])^ = dtBlob then
+                    begin
+                      iNumBytes := Sqlite3_ColumnBytes(stmt, i);
+                      if iNumBytes = 0 then
+                        thisblobvalue := nil
+                      else
+                      begin
+                        thisblobvalue := TMemoryStream.Create;
+                        thisblobvalue.position := 0;
+                        ptr := Sqlite3_ColumnBlob(stmt, i);
+                        thisblobvalue.writebuffer(ptr^, iNumBytes);
+                      end;
+                      fResults.Add(thisblobvalue);
+                    end
+                    else
+                    begin
+                      new(thisstringvalue);
+                      ptrValue := Sqlite3_ColumnText(stmt, i);
+                      setstring(thisstringvalue^, ptrvalue, strlen(ptrvalue));
+                      fResults.Add(thisstringvalue);
+                    end;
+            end;
+          end;
+        SQLITE_BUSY:
+          raise ESqliteException.CreateFmt('Could not prepare SQL statement',
+            [SQL, 'SQLite is Busy']);
+      else
+        DB.RaiseError('Could not retrieve data', SQL);
+      end;
+      iStepResult := Sqlite3_step(Stmt);
+    end;
+    fRow := 0;
+  finally
+    if Assigned(Stmt) then
+      Sqlite3_Finalize(stmt);
+  end;
+end;
+
+//..............................................................................
+
+destructor TSQLiteTable.Destroy;
+var
+  i: cardinal;
+  iColNo: integer;
+begin
+  if Assigned(fResults) then
+  begin
+    for i := 0 to fResults.Count - 1 do
+    begin
+      //check for blob type
+      iColNo := (i mod fColCount);
+      case pInteger(self.fColTypes[iColNo])^ of
+        dtBlob:
+          TMemoryStream(fResults[i]).Free;
+        dtStr:
+          if fResults[i] <> nil then
+          begin
+            setstring(string(fResults[i]^), nil, 0);
+            dispose(fResults[i]);
+          end;
+      else
+        dispose(fResults[i]);
+      end;
+    end;
+    fResults.Free;
+  end;
+  if Assigned(fCols) then
+    fCols.Free;
+  if Assigned(fColTypes) then
+    for i := 0 to fColTypes.Count - 1 do
+      dispose(fColTypes[i]);
+  fColTypes.Free;
+  inherited;
+end;
+
+//..............................................................................
+
+function TSQLiteTable.GetColumns(I: integer): string;
+begin
+  Result := fCols[I];
+end;
+
+//..............................................................................
+
+function TSQLiteTable.GetCountResult: integer;
+begin
+  if not EOF then
+    Result := StrToInt(Fields[0])
+  else
+    Result := 0;
+end;
+
+function TSQLiteTable.GetCount: integer;
+begin
+  Result := FRowCount;
+end;
+
+//..............................................................................
+
+function TSQLiteTable.GetEOF: boolean;
+begin
+  Result := fRow >= fRowCount;
+end;
+
+function TSQLiteTable.GetBOF: boolean;
+begin
+  Result := fRow <= 0;
+end;
+
+//..............................................................................
+
+function TSQLiteTable.GetFieldByName(FieldName: string): string;
+begin
+  Result := GetFields(self.GetFieldIndex(FieldName));
+end;
+
+function TSQLiteTable.GetFieldIndex(FieldName: string): integer;
+begin
+
+  if (fCols = nil) then
+  begin
+    raise ESqliteException.Create('Field ' + fieldname + ' Not found. Empty dataset');
+    exit;
+  end;
+
+  if (fCols.count = 0) then
+  begin
+    raise ESqliteException.Create('Field ' + fieldname + ' Not found. Empty dataset');
+    exit;
+  end;
+
+  Result := fCols.IndexOf(AnsiUpperCase(FieldName));
+
+  if (result < 0) then
+  begin raise ESqliteException.Create('Field not found in dataset: ' + fieldname) end;
+
+end;
+
+//..............................................................................
+
+function TSQLiteTable.GetFields(I: cardinal): string;
+var
+  thisvalue: pstring;
+  thistype: integer;
+begin
+  Result := '';
+  if EOF then
+    raise ESqliteException.Create('Table is at End of File');
+  //integer types are not stored in the resultset
+  //as strings, so they should be retrieved using the type-specific
+  //methods
+  thistype := pInteger(self.fColTypes[I])^;
+
+  case thistype of
+    dtStr:
+      begin
+        thisvalue := self.fResults[(self.frow * self.fColCount) + I];
+        if (thisvalue <> nil) then
+          Result := thisvalue^
+        else
+          Result := '';
+      end;
+    dtInt:
+      Result := IntToStr(self.FieldAsInteger(I));
+    dtNumeric:
+      Result := FloatToStr(self.FieldAsDouble(I));
+    dtBlob:
+      Result := self.FieldAsBlobText(I);
+  else
+    Result := '';
+  end;
+end;
+
+function TSqliteTable.FieldAsBlob(I: cardinal): TMemoryStream;
+begin
+  if EOF then
+    raise ESqliteException.Create('Table is at End of File');
+  if (self.fResults[(self.frow * self.fColCount) + I] = nil) then
+    Result := nil
+  else
+    if pInteger(self.fColTypes[I])^ = dtBlob then
+      Result := TMemoryStream(self.fResults[(self.frow * self.fColCount) + I])
+    else
+      raise ESqliteException.Create('Not a Blob field');
+end;
+
+function TSqliteTable.FieldAsBlobText(I: cardinal): string;
+var
+  MemStream: TMemoryStream;
+  Buffer: PChar;
+begin
+  Result := '';
+  MemStream := self.FieldAsBlob(I);
+  if MemStream <> nil then
+    if MemStream.Size > 0 then
+    begin
+      MemStream.position := 0;
+      Buffer := stralloc(MemStream.Size + 1);
+      MemStream.readbuffer(Buffer[0], MemStream.Size);
+      (Buffer + MemStream.Size)^ := chr(0);
+      SetString(Result, Buffer, MemStream.size);
+      strdispose(Buffer);
+    end;
+end;
+
+
+function TSqliteTable.FieldAsInteger(I: cardinal): int64;
+begin
+  if EOF then
+    //raise ESqliteException.Create('Table is at End of File');
+    Result := 0
+  else if (self.fResults[(self.frow * self.fColCount) + I] = nil) then
+    Result := 0
+  else
+    if pInteger(self.fColTypes[I])^ = dtInt then
+      Result := pInt64(self.fResults[(self.frow * self.fColCount) + I])^
+    else
+      if pInteger(self.fColTypes[I])^ = dtNumeric then
+        Result := trunc(strtofloat(pString(self.fResults[(self.frow * self.fColCount) + I])^))
+      else
+        raise ESqliteException.Create('Not an integer or numeric field');
+end;
+
+function TSqliteTable.FieldAsDouble(I: cardinal): double;
+begin
+  if EOF then
+    raise ESqliteException.Create('Table is at End of File');
+  if (self.fResults[(self.frow * self.fColCount) + I] = nil) then
+    Result := 0
+  else
+    if pInteger(self.fColTypes[I])^ = dtInt then
+      Result := pInt64(self.fResults[(self.frow * self.fColCount) + I])^
+    else
+      if pInteger(self.fColTypes[I])^ = dtNumeric then
+        Result := pDouble(self.fResults[(self.frow * self.fColCount) + I])^
+      else
+        raise ESqliteException.Create('Not an integer or numeric field');
+end;
+
+function TSqliteTable.FieldAsString(I: cardinal): string;
+begin
+  if EOF then
+    raise ESqliteException.Create('Table is at End of File');
+  if (self.fResults[(self.frow * self.fColCount) + I] = nil) then
+    Result := ''
+  else
+    Result := self.GetFields(I);
+end;
+
+function TSqliteTable.FieldIsNull(I: cardinal): boolean;
+var
+  thisvalue: pointer;
+begin
+  if EOF then
+    raise ESqliteException.Create('Table is at End of File');
+  thisvalue := self.fResults[(self.frow * self.fColCount) + I];
+  Result := (thisvalue = nil);
+end;
+
+//..............................................................................
+
+function TSQLiteTable.Next: boolean;
+begin
+  Result := False;
+  if not EOF then
+  begin
+    Inc(fRow);
+    Result := True;
+  end;
+end;
+
+function TSQLiteTable.Previous: boolean;
+begin
+  Result := False;
+  if not BOF then
+  begin
+    Dec(fRow);
+    Result := True;
+  end;
+end;
+
+function TSQLiteTable.MoveFirst: boolean;
+begin
+  Result := False;
+  if self.fRowCount > 0 then
+  begin
+    fRow := 0;
+    Result := True;
+  end;
+end;
+
+function TSQLiteTable.MoveLast: boolean;
+begin
+  Result := False;
+  if self.fRowCount > 0 then
+  begin
+    fRow := fRowCount - 1;
+    Result := True;
+  end;
+end;
+
+
+end.
+
diff --git a/Game/Code/lib/SQLite/lazarustest.lpi b/Game/Code/lib/SQLite/lazarustest.lpi
index 0da6fab4..8c758bc6 100644
--- a/Game/Code/lib/SQLite/lazarustest.lpi
+++ b/Game/Code/lib/SQLite/lazarustest.lpi
@@ -1,142 +1,129 @@
-<?xml version="1.0"?>

-<CONFIG>

-  <ProjectOptions>

-    <PathDelim Value="\"/>

-    <Version Value="5"/>

-    <General>

-      <MainUnit Value="0"/>

-      <IconPath Value="./"/>

-      <TargetFileExt Value=".exe"/>

-      <ActiveEditorIndexAtStart Value="0"/>

-    </General>

-    <VersionInfo>

-      <ProjectVersion Value=""/>

-      <Language Value=""/>

-      <CharSet Value=""/>

-    </VersionInfo>

-    <PublishOptions>

-      <Version Value="2"/>

-      <IgnoreBinaries Value="False"/>

-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>

-      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>

-    </PublishOptions>

-    <RunParams>

-      <local>

-        <FormatVersion Value="1"/>

-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>

-      </local>

-    </RunParams>

-    <Units Count="9">

-      <Unit0>

-        <Filename Value="lazarustest.lpr"/>

-        <IsPartOfProject Value="True"/>

-        <UnitName Value="lazarustest"/>

-        <CursorPos X="61" Y="56"/>

-        <TopLine Value="36"/>

-        <EditorIndex Value="0"/>

-        <UsageCount Value="23"/>

-        <Loaded Value="True"/>

-      </Unit0>

-      <Unit1>

-        <Filename Value="delphi\bass.pas"/>

-        <UnitName Value="Bass"/>

-        <CursorPos X="12" Y="539"/>

-        <TopLine Value="589"/>

-        <UsageCount Value="10"/>

-      </Unit1>

-      <Unit2>

-        <Filename Value="avformat.pas"/>

-        <UnitName Value="avformat"/>

-        <CursorPos X="38" Y="594"/>

-        <TopLine Value="567"/>

-        <UsageCount Value="10"/>

-      </Unit2>

-      <Unit3>

-        <Filename Value="avcodec.pas"/>

-        <UnitName Value="avcodec"/>

-        <CursorPos X="3" Y="1796"/>

-        <TopLine Value="1775"/>

-        <UsageCount Value="11"/>

-      </Unit3>

-      <Unit4>

-        <Filename Value="avio.pas"/>

-        <UnitName Value="avio"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="11"/>

-      </Unit4>

-      <Unit5>

-        <Filename Value="pngimage.pas"/>

-        <UnitName Value="pngimage"/>

-        <CursorPos X="20" Y="133"/>

-        <TopLine Value="121"/>

-        <UsageCount Value="10"/>

-      </Unit5>

-      <Unit6>

-        <Filename Value="pngzlib.pas"/>

-        <UnitName Value="pngzlib"/>

-        <CursorPos X="6" Y="111"/>

-        <TopLine Value="91"/>

-        <UsageCount Value="10"/>

-      </Unit6>

-      <Unit7>

-        <Filename Value="pnglang.pas"/>

-        <UnitName Value="pnglang"/>

-        <CursorPos X="1" Y="1"/>

-        <TopLine Value="1"/>

-        <UsageCount Value="10"/>

-      </Unit7>

-      <Unit8>

-        <Filename Value="SQLiteTable3.pas"/>

-        <UnitName Value="SQLiteTable3"/>

-        <CursorPos X="91" Y="38"/>

-        <TopLine Value="1"/>

-        <EditorIndex Value="1"/>

-        <UsageCount Value="10"/>

-        <Loaded Value="True"/>

-      </Unit8>

-    </Units>

-    <JumpHistory Count="5" HistoryIndex="4">

-      <Position1>

-        <Filename Value="SQLiteTable3.pas"/>

-        <Caret Line="1" Column="1" TopLine="1"/>

-      </Position1>

-      <Position2>

-        <Filename Value="SQLiteTable3.pas"/>

-        <Caret Line="133" Column="29" TopLine="113"/>

-      </Position2>

-      <Position3>

-        <Filename Value="lazarustest.lpr"/>

-        <Caret Line="65" Column="17" TopLine="3"/>

-      </Position3>

-      <Position4>

-        <Filename Value="lazarustest.lpr"/>

-        <Caret Line="18" Column="43" TopLine="1"/>

-      </Position4>

-      <Position5>

-        <Filename Value="lazarustest.lpr"/>

-        <Caret Line="58" Column="79" TopLine="36"/>

-      </Position5>

-    </JumpHistory>

-  </ProjectOptions>

-  <CompilerOptions>

-    <Version Value="5"/>

-    <PathDelim Value="\"/>

-    <CodeGeneration>

-      <Generate Value="Faster"/>

-    </CodeGeneration>

-    <Other>

-      <CompilerPath Value="$(CompPath)"/>

-    </Other>

-  </CompilerOptions>

-  <Debugging>

-    <Exceptions Count="2">

-      <Item1>

-        <Name Value="ECodetoolError"/>

-      </Item1>

-      <Item2>

-        <Name Value="EFOpenError"/>

-      </Item2>

-    </Exceptions>

-  </Debugging>

-</CONFIG>

+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="/"/>
+    <Version Value="5"/>
+    <General>
+      <MainUnit Value="0"/>
+      <IconPath Value="./"/>
+      <TargetFileExt Value=".exe"/>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+      <Language Value=""/>
+      <CharSet Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <Units Count="9">
+      <Unit0>
+        <Filename Value="lazarustest.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="lazarustest"/>
+        <CursorPos X="29" Y="18"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="23"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="delphi/bass.pas"/>
+        <UnitName Value="Bass"/>
+        <CursorPos X="12" Y="539"/>
+        <TopLine Value="589"/>
+        <UsageCount Value="10"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="avformat.pas"/>
+        <UnitName Value="avformat"/>
+        <CursorPos X="38" Y="594"/>
+        <TopLine Value="567"/>
+        <UsageCount Value="10"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="avcodec.pas"/>
+        <UnitName Value="avcodec"/>
+        <CursorPos X="3" Y="1796"/>
+        <TopLine Value="1775"/>
+        <UsageCount Value="11"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="avio.pas"/>
+        <UnitName Value="avio"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="11"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="pngimage.pas"/>
+        <UnitName Value="pngimage"/>
+        <CursorPos X="20" Y="133"/>
+        <TopLine Value="121"/>
+        <UsageCount Value="10"/>
+      </Unit5>
+      <Unit6>
+        <Filename Value="pngzlib.pas"/>
+        <UnitName Value="pngzlib"/>
+        <CursorPos X="6" Y="111"/>
+        <TopLine Value="91"/>
+        <UsageCount Value="10"/>
+      </Unit6>
+      <Unit7>
+        <Filename Value="pnglang.pas"/>
+        <UnitName Value="pnglang"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+      </Unit7>
+      <Unit8>
+        <Filename Value="SQLiteTable3.pas"/>
+        <UnitName Value="SQLiteTable3"/>
+        <CursorPos X="11" Y="27"/>
+        <TopLine Value="3"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit8>
+    </Units>
+    <JumpHistory Count="2" HistoryIndex="1">
+      <Position1>
+        <Filename Value="SQLiteTable3.pas"/>
+        <Caret Line="38" Column="91" TopLine="1"/>
+      </Position1>
+      <Position2>
+        <Filename Value="lazarustest.lpr"/>
+        <Caret Line="47" Column="41" TopLine="1"/>
+      </Position2>
+    </JumpHistory>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="2">
+      <Item1>
+        <Name Value="ECodetoolError"/>
+      </Item1>
+      <Item2>
+        <Name Value="EFOpenError"/>
+      </Item2>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
diff --git a/Game/Code/lib/SQLite/lazarustest.lpr b/Game/Code/lib/SQLite/lazarustest.lpr
index 61b7c748..bc005bec 100644
--- a/Game/Code/lib/SQLite/lazarustest.lpr
+++ b/Game/Code/lib/SQLite/lazarustest.lpr
@@ -1,79 +1,81 @@
-program lazarustest;

-

-uses

-  SQLiteTable3 in 'SQLiteTable3.pas',

-  SQLite3      in 'SQLite3.pas',

-  sysutils;

-

-

-procedure DoTest();

-var

-  slDBpath : string;

-  sldb     : TSQLiteDatabase;

-  sltb     : TSQLIteTable;

-  sSQL     : String;

-  Notes    : String;

-

-begin

-  slDBPath := ExtractFilepath( paramstr(0) ) + 'test.db';

-  sldb     := TSQLiteDatabase.Create(slDBPath);

-  

-  try

-  

-    if sldb.TableExists('testTable') then

-    begin

-      sSQL := 'DROP TABLE testtable';

-      sldb.execsql(sSQL);

-    end;

-

-    sSQL := 'CREATE TABLE testtable ([ID] INTEGER PRIMARY KEY,[OtherID] INTEGER NULL,';

-    sSQL := sSQL + '[Name] VARCHAR (255),[Number] FLOAT, [notes] BLOB, [picture] BLOB COLLATE NOCASE);';

-    sldb.execsql(sSQL);

-

-    sldb.execsql('CREATE INDEX TestTableName ON [testtable]([Name]);');

-

-    //begin a transaction

-    sldb.BeginTransaction;

-

-    sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Some Name",4,587.6594,"Here are some notes");';

-    //do the insert

-    sldb.ExecSQL(sSQL);

-

-    sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Another Name",12,4758.3265,"More notes");';

-    //do the insert

-    sldb.ExecSQL(sSQL);

-

-    //end the transaction

-    sldb.Commit;

-

-    //query the data

-    sltb := slDb.GetTable('SELECT * FROM testtable');

-    try

-

-      if sltb.Count > 0 then

-      begin

-        //display first row

-        writeln( sltb.FieldAsString(sltb.FieldIndex['Name']) );

-        writeln( inttostr(sltb.FieldAsInteger(sltb.FieldIndex['ID'])) );

-        writeln( floattostr( sltb.FieldAsDouble(sltb.FieldIndex['Number'])) );

-      end;

-

-    finally

-      sltb.Free;

-    end;

-

-  finally

-    sldb.Free;

-  end;

-

-end;

-

-begin

-  try

-    DoTest();

-    writeln( 'SqlLite3 unit IS lazarus compatible' );

-  except

-    writeln( 'ERROR : SqlLite3 unit is NOT lazarus compatible' );

-  end;

-end.

-

+program lazarustest;
+
+uses
+  SQLiteTable3 in 'SQLiteTable3.pas',
+  SQLite3      in 'SQLite3.pas',
+  sysutils;
+
+
+procedure DoTest();
+var
+  slDBpath : string;
+  sldb     : TSQLiteDatabase;
+  sltb     : TSQLIteTable;
+  sSQL     : String;
+  Notes    : String;
+
+begin
+  // needed for linux build.
+
+  slDBPath := ExtractFilepath( paramstr(0) ) + 'test.db';
+  sldb     := TSQLiteDatabase.Create(slDBPath);
+  
+  try
+  
+    if sldb.TableExists('testTable') then
+    begin
+      sSQL := 'DROP TABLE testtable';
+      sldb.execsql(sSQL);
+    end;
+
+    sSQL := 'CREATE TABLE testtable ([ID] INTEGER PRIMARY KEY,[OtherID] INTEGER NULL,';
+    sSQL := sSQL + '[Name] VARCHAR (255),[Number] FLOAT, [notes] BLOB, [picture] BLOB COLLATE NOCASE);';
+    sldb.execsql(sSQL);
+
+    sldb.execsql('CREATE INDEX TestTableName ON [testtable]([Name]);');
+
+    //begin a transaction
+    sldb.BeginTransaction;
+
+    sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Some Name",4,587.6594,"Here are some notes");';
+    //do the insert
+    sldb.ExecSQL(sSQL);
+
+    sSQL := 'INSERT INTO testtable(Name,OtherID,Number,Notes) VALUES ("Another Name",12,4758.3265,"More notes");';
+    //do the insert
+    sldb.ExecSQL(sSQL);
+
+    //end the transaction
+    sldb.Commit;
+
+    //query the data
+    sltb := slDb.GetTable('SELECT * FROM testtable');
+    try
+
+      if sltb.Count > 0 then
+      begin
+        //display first row
+        writeln( sltb.FieldAsString(sltb.FieldIndex['Name']) );
+        writeln( inttostr(sltb.FieldAsInteger(sltb.FieldIndex['ID'])) );
+        writeln( floattostr( sltb.FieldAsDouble(sltb.FieldIndex['Number'])) );
+      end;
+
+    finally
+      sltb.Free;
+    end;
+
+  finally
+    sldb.Free;
+  end;
+
+end;
+
+begin
+  try
+    DoTest();
+    writeln( 'SqlLite3 unit IS lazarus compatible' );
+  except
+    writeln( 'ERROR : SqlLite3 unit is NOT lazarus compatible' );
+  end;
+end.
+