pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-07 06:50:04 +02:00
Code Issues Actions Releases Activity

Fix for issue #414 : Error Building on XE2

Browse Source
This commit is contained in:
salvadordf 2022-04-26 12:14:05 +02:00
parent 63bd707553
commit 57364ec1b9
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
source/uCEFArgCopy.pas
View File

@ -109,7 +109,7 @@ begin
while (i >= 0) do while (i >= 0) do
begin begin
if (FArgVCopy[i] <> nil) then if (FArgVCopy[i] <> nil) then
{$IFNDEF FPC}System.AnsiStrings.{$ENDIF}StrDispose(FArgVCopy[i]); {$IFDEF DELPHI18_UP}System.AnsiStrings.{$ENDIF}StrDispose(FArgVCopy[i]);
dec(i); dec(i);
end; end;
@ -139,8 +139,13 @@ begin
FArgVCopy[i] := StrAlloc(length(aArgv[i]) + 1); FArgVCopy[i] := StrAlloc(length(aArgv[i]) + 1);
StrCopy(FArgVCopy[i], aArgv[i]); StrCopy(FArgVCopy[i], aArgv[i]);
{$ELSE} {$ELSE}
FArgVCopy[i] := AnsiStrAlloc(length(aArgv[i]) + 1); {$IFDEF DELPHI18_UP}
FArgVCopy[i] := System.AnsiStrings.AnsiStrAlloc(length(aArgv[i]) + 1);
System.AnsiStrings.StrCopy(FArgVCopy[i], aArgv[i]); System.AnsiStrings.StrCopy(FArgVCopy[i], aArgv[i]);
{$ELSE}
FArgVCopy[i] := System.SysUtils.AnsiStrAlloc(length(aArgv[i]) + 1);
System.SysUtils.StrCopy(FArgVCopy[i], aArgv[i]);
{$ENDIF}
{$ENDIF} {$ENDIF}
inc(i); inc(i);

2
source/uCEFBufferPanel.pas
View File

@ -773,7 +773,7 @@ const
// FPC works fine with a high(integer) value but if we try to use // FPC works fine with a high(integer) value but if we try to use
// integer(high(cardinal)) then it duplicates the result string. // integer(high(cardinal)) then it duplicates the result string.
// Delphi however works fine with integer(high(cardinal)) but it doesn't show // Delphi however works fine with integer(high(cardinal)) but it doesn't show
// any resul string if we use high(integer) // any result string when we use high(integer)
{$IFDEF FPC} {$IFDEF FPC}
UINT32_MAX = high(integer); UINT32_MAX = high(integer);
{$ELSE} {$ELSE}