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

sqliteds: Ensure unique names in fielddefs

Browse Source 
git-svn-id: trunk@32753 -
This commit is contained in:
blikblum 2015-12-27 10:40:58 +00:00
parent 07ca0393ff
commit 6189686c6d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -237,7 +237,7 @@ begin
AType := ftString; AType := ftString;
DataSize := DefaultStringSize; DataSize := DefaultStringSize;
end; end;
FieldDefs.Add(String(sqlite3_column_name(vm, i)), AType, DataSize); FieldDefs.Add(FieldDefs.MakeNameUnique(String(sqlite3_column_name(vm, i))), AType, DataSize);
//Set the pchar2sql function //Set the pchar2sql function
case AType of case AType of
ftString: ftString:

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

@ -184,7 +184,7 @@ begin
begin begin
AType := ftString; AType := ftString;
end; end;
FieldDefs.Add(String(ColumnNames[i]), AType, DataSize); FieldDefs.Add(FieldDefs.MakeNameUnique(String(ColumnNames[i])), AType, DataSize);
//Set the pchar2sql function //Set the pchar2sql function
if AType in [ftString, ftMemo] then if AType in [ftString, ftMemo] then
FGetSqlStr[i] := @Char2SQLStr FGetSqlStr[i] := @Char2SQLStr