* 64 bit fix from Aison

git-svn-id: trunk@913 -

fcl/db/sqlite/sqlite3ds.pas

@@ -307,8 +307,8 @@ var
   procedure FillStringsAndObjects;
   begin
     while FSqliteReturnId = SQLITE_ROW do
-    begin
-      AStrList.AddObject(StrPas(sqlite3_column_text(vm,0)),TObject(sqlite3_column_int(vm,1)));
+    begin      
+      AStrList.AddObject(StrPas(sqlite3_column_text(vm,0)),TObject(PtrInt(sqlite3_column_int(vm,1))));
       FSqliteReturnId:=sqlite3_step(vm);  
     end;
   end;    

fcl/db/sqlite/sqliteds.pas

@@ -330,8 +330,8 @@ var
   begin
     while FSqliteReturnId = SQLITE_ROW do
     begin
-      // I know, this code is really dirty!!
-      AStrList.AddObject(StrPas(ColumnValues[0]),TObject(StrToInt(StrPas(ColumnValues[1]))));
+      // I know, this code is really dirty!!      
+      AStrList.AddObject(StrPas(ColumnValues[0]),TObject(PtrInt(StrToInt(StrPas(ColumnValues[1])))));
       FSqliteReturnId:=sqlite_step(vm,@ColCount,@ColumnValues,@ColumnNames);  
     end;
   end;