Проблема в следующем, при компиляции:
- Код: Выделить всё
procedure TMRUManager.MenuItemClick(Sender: TObject);
var
I: Integer;
begin
if Sender is TMenuItem then begin
I := TMenuItem(Sender).Tag;
if (I >= 0) and (I < FList.Count) then
try
DoClick(FList[I], TMenuItem(Sender).Caption, Longint(FList.Objects[I]));
finally
if RemoveOnSelect then Remove(FList[I]);
end;
end;
end;
/usr/share/lazarus/components/rx/mrulist.pp(202,54) Error: Illegal type conversion: "TObject" to "LongInt"
procedure TMRUManager.Add(const RecentName: string; UserData: Longint);
begin
FList.AddObject(RecentName, TObject(UserData));
end;
/usr/share/lazarus/components/rx/mrulist.pp(274,31) Error: Illegal type conversion: "LongInt" to "TObject"
В принципе таже проблема с ZEOS
- Код: Выделить всё
function TZAbstractObject.Hash: LongInt;
begin
Result := LongInt(Self);
end;
/usr/share/lazarus/ZEOSDBO-6.6.2-rc/src/core/ZClasses.pas(258,13) Error: Illegal type conversion: "TZAbstractObject" to "LongInt"
Может что-то подключить нужно?
А и еще подскажите что это за модуль Libc.pp и как он устанавливается?
Ubuntu 8.04 AMD64, Lazarus 0.9.24, FPC 2.2.0
