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

* Use factory for fielddefs

Browse Source 
git-svn-id: trunk@26782 -
This commit is contained in:
michael 2014-02-15 10:48:22 +00:00
parent b1fc595d17
commit 7b460e0e5e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -765,9 +765,9 @@ begin
if MySQLDataType(field, DFT, DFS) then
begin
TFieldDef.Create(FieldDefs, FieldDefs.MakeNameUnique(field^.name), DFT, DFS,
(field^.flags and (AUTO_INCREMENT_FLAG or NOT_NULL_FLAG {$IFDEF MYSQL50_UP}or NO_DEFAULT_VALUE_FLAG{$ENDIF})) = (NOT_NULL_FLAG {$IFDEF MYSQL50_UP}or NO_DEFAULT_VALUE_FLAG{$ENDIF}),
TF);
FieldDefs.Add(FieldDefs.MakeNameUnique(field^.name), DFT, DFS,
(field^.flags and (AUTO_INCREMENT_FLAG or NOT_NULL_FLAG {$IFDEF MYSQL50_UP}or NO_DEFAULT_VALUE_FLAG{$ENDIF})) = (NOT_NULL_FLAG {$IFDEF MYSQL50_UP}or NO_DEFAULT_VALUE_FLAG{$ENDIF}),
TF);
c.MapDSRowToMSQLRow[TF-1] := I;
inc(TF);
end