mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0001763] SevenZip plugin can't be compiled with Lazarus 1.6.4/FreePascal 3.0.2

Browse source
This commit is contained in:
Alexander Koblov 2017-03-25 17:16:24 +00:00
commit dd2a17527e
1 changed files with 20 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

32
plugins/wcx/sevenzip/src/jcl/DCJclAlternative.pas
View file

@ -436,18 +436,26 @@ procedure TJclWideStringList.PutObject(Index: Integer; AObject: TObject);
begin
Data[Index] := AObject;
end;
function TJclWideStringList.CompareWideStringProc(Key1, Key2: Pointer): Integer;
begin
Result:= WideStringManager.CompareWideStringProc(WideString(Key1^), WideString(Key2^));
end;
function TJclWideStringList.CompareTextWideStringProc(Key1, Key2: Pointer): Integer;
begin
Result:= WideStringManager.CompareTextWideStringProc(WideString(Key1^), WideString(Key2^));
end;
constructor TJclWideStringList.Create;
function TJclWideStringList.CompareWideStringProc(Key1, Key2: Pointer): Integer;
begin
{$if FPC_FULLVERSION<30002}
Result:= WideStringManager.CompareWideStringProc(WideString(Key1^), WideString(Key2^));
{$else}
Result:= WideStringManager.CompareWideStringProc(WideString(Key1^), WideString(Key2^), []);
{$endif}
end;
function TJclWideStringList.CompareTextWideStringProc(Key1, Key2: Pointer): Integer;
begin
{$if FPC_FULLVERSION<30002}
Result:= WideStringManager.CompareTextWideStringProc(WideString(Key1^), WideString(Key2^));
{$else}
Result:= WideStringManager.CompareWideStringProc(WideString(Key1^), WideString(Key2^), [coIgnoreCase]);
{$endif}
end;
constructor TJclWideStringList.Create;
begin
inherited Create;
OnKeyPtrCompare := @CompareTextWideStringProc;