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

onguard: Fix compilation with at least Laz 1.4.4 / FPC 2.6.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8736 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-23 13:55:39 +00:00
parent 0a8755d05b
commit a5bdd38008
54 changed files with 926 additions and 505 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/onguard/examples/exsrnm1/exsrnmu1.pas
View File

@@ -129,8 +129,7 @@ begin
end;
{Check that Release Code was entered correctly}
TC := Default(TCode);
HexToBuffer(SNEntryDlg.CodeText.Text, TC, SizeOf(TCode));
HexToBuffer(SNEntryDlg.CodeText.Text, TC{%H-}, SizeOf(TCode));
if not (IsSerialNumberCodeValid(CKey, TC)) then begin
S := 'Release code not entered correctly';
Result := mrCancel;