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

tvplanit: Use "random(High(Int64))" instead of "random($7FFFFFFF)" in ID generator for IniDatastore.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4848 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-27 23:17:07 +00:00
parent cf5e6362ef
commit dac023e5ee
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpinids.pas
View File

@ -167,7 +167,7 @@ end;
function TVpIniDatastore.GetNextID(TableName: string): Int64; function TVpIniDatastore.GetNextID(TableName: string): Int64;
begin begin
repeat repeat
Result := Random($7FFFFFFF); Result := Random(High(Int64));
until UniqueID(Result); until UniqueID(Result);
end; end;