# 4102 64-bit Issues with ElevateDB Manager Source Code

---

I've found two type-casts from Self to Integer in "main.pas":

procedure TManagerObject.Sort(Recurse: Boolean=False);
begin
if (FNode <> nil) then
FNode.CustomSort(nil,Integer(Self),Recurse);
MainForm.PropertiesListView.CustomSort(nil,Integer(Self));
end;

Should that be something like "IntPtr(Self)"?


Is the type-cast "Integer(List.Objects" correct?

function CompareSections(List: TStringList; Index1, Index2: Integer): Integer;
begin
if (Integer(List.Objects[Index1]) < Integer(List.Objects[Index2])) then
Result:=CMP_LESS
else if (Integer(List.Objects[Index1]) > Integer(List.Objects[Index2])) then
Result:=CMP_GREATER
else
Result:=CMP_EQUAL;
end;


Best regards
Wolfgang Klein