paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 11:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Luiz Americo to set TStringField.Size:=dsMaxStringSize

Browse Source 
git-svn-id: trunk@9250 -
This commit is contained in:
joost 2007-11-14 18:33:40 +00:00
parent 079890d53e
commit 465b41fbfd
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/sqlite/sqlite3ds.pas
View File

@ -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

7
packages/fcl-db/src/sqlite/sqliteds.pas
View File

@ -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