pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TVPlanIt: Fix crash of TBufDSDataStore with FPC 3.2+

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7911 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-30 20:48:19 +00:00
parent 72c74560de
commit dd2db96268
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpbufds.pas
View File

@ -135,11 +135,12 @@ begin
CreateFieldDefs(ATableName, table.FieldDefs); CreateFieldDefs(ATableName, table.FieldDefs);
if FUseAutoInc then if FUseAutoInc then
table.FieldDefs[0].DataType := ftAutoInc; table.FieldDefs[0].DataType := ftAutoInc;
table.CreateDataset;
end;
table.IndexDefs.Clear; table.IndexDefs.Clear;
table.IndexDefs.Update; table.IndexDefs.Update;
CreateIndexDefs(ATableName, table.IndexDefs); CreateIndexDefs(ATableName, table.IndexDefs);
table.CreateDataset;
end else
table.Open;
end; end;
procedure TVpBufDSDatastore.CreateTables; procedure TVpBufDSDatastore.CreateTables;