From 66613d4cc7752b629ebdb76aa41612b81b00058d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 21 Aug 2005 21:03:57 +0000
Subject: [PATCH] * 64 bit fix from Aison

git-svn-id: trunk@913 -
---
 fcl/db/sqlite/sqlite3ds.pas | 4 ++--
 fcl/db/sqlite/sqliteds.pas  | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/fcl/db/sqlite/sqlite3ds.pas b/fcl/db/sqlite/sqlite3ds.pas
index fcb741709e..cfd9164b92 100644
--- a/fcl/db/sqlite/sqlite3ds.pas
+++ b/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;    
diff --git a/fcl/db/sqlite/sqliteds.pas b/fcl/db/sqlite/sqliteds.pas
index fe21e7b21e..547fce8fd5 100644
--- a/fcl/db/sqlite/sqliteds.pas
+++ b/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;