Пара вопросов по портированию

[Attid]

в общем из дельфи перетаскиваю проэктик есть следующие проблемки :

Код: Выделить всё

type
  TSymbol = Byte;

/****/
function TRList.GetSymbol(ix: Integer): TSymbol;
begin
  Result := TSymbol(Objects[ix]);
end;
/****/

Error: Illegal type conversion: "TObject" to "Byte"


кто виноват и как выкрутится.

ЗЫ. зачем и почему так сделано я не знаю, мне надо портировать с минимальным изменением.

[alexs]

а что это такое - Objects[ix]?
если сождежит Pointer-ы (судя по ошибке)
то приведи их сначала к типу Integer - это будет совпадать по размеру
а потом от integer-a бери младший байт -
но вобщей такой код - наивернейший путь к глюкам

[shade]

Наверное надежнее к PtrUInt:
Result := PtrUInt(Objects[ix]);
Уж к байту компилятор сам должен додуматься привести...

[Attid]

он баутики содержит, циферки.
сделал пока так

Код: Выделить всё

Result := TSymbol(Integer(Objects[ix]));

вроде работает.