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/codegen/codegenu.pas
View File

@ -54,8 +54,7 @@ begin
OgMakeCodes1.SetKey(CKey);
if OgMakeCodes1.Execute then begin
{get the code}
Work := Default(TCode);
OgMakeCodes1.GetCode(Work);
OgMakeCodes1.GetCode(Work{%H-});
{display the code}
CodeEd.Text := OgUtil.BufferToHex(Work, SizeOf(Work));
end;