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

tvplanit: Make the results of all calls to GetNextID an Int64 (for consistency with AddResource etc.).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4686 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-07 17:56:21 +00:00
parent 018aa4e015
commit 04c64776ef
7 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpdbisamds.pas
View File

@@ -75,7 +75,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetNextID(TableName: string): Integer; override;
function GetNextID(TableName: string): Int64; override;
procedure Load; override;
procedure CreateTable(TableName: string);
procedure CreateIndexDefs(const TableName : string;
@@ -251,7 +251,7 @@ begin
end;
{=====}
function TVpDBISAMDataStore.GetNextID(TableName: string): Integer;
function TVpDBISAMDataStore.GetNextID(TableName: string): Int64;
var
Query: TDBISAMQuery;
GotIt: Boolean;