From 465b41fbfdc351ed4e2d4f8221db5a321fea8f48 Mon Sep 17 00:00:00 2001 From: joost Date: Wed, 14 Nov 2007 18:33:40 +0000 Subject: [PATCH] * Patch from Luiz Americo to set TStringField.Size:=dsMaxStringSize git-svn-id: trunk@9250 - --- packages/fcl-db/src/sqlite/sqlite3ds.pas | 5 ++++- packages/fcl-db/src/sqlite/sqliteds.pas | 7 +++++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/packages/fcl-db/src/sqlite/sqlite3ds.pas b/packages/fcl-db/src/sqlite/sqlite3ds.pas index 47d98da34e..0c0c39d18b 100644 --- a/packages/fcl-db/src/sqlite/sqlite3ds.pas +++ b/packages/fcl-db/src/sqlite/sqlite3ds.pas @@ -169,7 +169,10 @@ begin begin AType := ftString; end; - FieldDefs.Add(StrPas(sqlite3_column_name(vm,i)), AType, 0, False); + if AType = ftString then + FieldDefs.Add(StrPas(sqlite3_column_name(vm,i)), AType, dsMaxStringSize) + else + FieldDefs.Add(StrPas(sqlite3_column_name(vm,i)), AType); //Set the pchar2sql function if AType in [ftString,ftMemo] then FGetSqlStr[i]:=@Char2SqlStr diff --git a/packages/fcl-db/src/sqlite/sqliteds.pas b/packages/fcl-db/src/sqlite/sqliteds.pas index 948ac9bb79..702332c092 100644 --- a/packages/fcl-db/src/sqlite/sqliteds.pas +++ b/packages/fcl-db/src/sqlite/sqliteds.pas @@ -173,8 +173,11 @@ begin end else begin AType := ftString; - end; - FieldDefs.Add(StrPas(ColumnNames[i]), AType, 0, False); + end; + if AType = ftString then + FieldDefs.Add(StrPas(ColumnNames[i]), AType, dsMaxStringSize) + else + FieldDefs.Add(StrPas(ColumnNames[i]), AType); //Set the pchar2sql function if AType in [ftString,ftMemo] then FGetSqlStr[i]:=@Char2SqlStr