pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2026-05-16 08:38:08 +02:00
Code Issues Actions Releases Activity

Removed most compiler warnings and hints in Lazarus.

Browse Source 
Encode and decode all utf8 strings in Lazarus.
This commit is contained in:
Salvador Díaz Fau
2025-12-31 18:09:38 +01:00
parent 6be46b2985
commit 030e679729
44 changed files with 274 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/uCEFCommandLine.pas
+5 -5
View File
@@ -158,14 +158,14 @@ begin
{$IFDEF VER140}
switches.Add(TempKey + '=' + TempValue) // Only for Delphi 6
{$ELSE}
switches.Add(TempKey + switches.NameValueSeparator + TempValue)
switches.Add({$IFDEF FPC}UTF8Encode({$ENDIF}TempKey + {$IFDEF FPC}UTF8Decode({$ENDIF}switches.NameValueSeparator{$IFDEF FPC}){$ENDIF} + TempValue{$IFDEF FPC}){$ENDIF})
{$ENDIF}
else
if (length(TempKey) > 0) then
switches.Add(TempKey)
switches.Add({$IFDEF FPC}UTF8Encode({$ENDIF}TempKey{$IFDEF FPC}){$ENDIF})
else
if (length(TempValue) > 0) then
switches.Add(TempValue);
switches.Add({$IFDEF FPC}UTF8Encode({$ENDIF}TempValue{$IFDEF FPC}){$ENDIF});
inc(i);
end;
@@ -201,8 +201,8 @@ begin
while (i < j) do
begin
SwitchKeys.Add(TempStrMap.Key[i]);
SwitchValues.Add(TempStrMap.Value[i]);
SwitchKeys.Add({$IFDEF FPC}UTF8Encode({$ENDIF}TempStrMap.Key[i]{$IFDEF FPC}){$ENDIF});
SwitchValues.Add({$IFDEF FPC}UTF8Encode({$ENDIF}TempStrMap.Value[i]{$IFDEF FPC}){$ENDIF});
inc(i);
end;