Модератор: Модераторы
ger0strat писал(а):Сорян за некропостинг, но тема не раскрыта. Одно дело - подавление warning'а, а другое - корректная обработка. Поверхностный гуглёж не дал информации на тему где, собственно, этот conversion не portable. Если это, например, где-то в арме, то может можно указать конкретные целевые платформы и компилятор перестанет возмущаться?
AnInteger:=PtrInt(APointer);
ACardinal:=PtrUInt(APointer);




var
   xPixel : Pointer;
   xNextPixel : Pointer;
...
   xPixel := xBmp.Scanline[0];
   xNextPixel := Pointer(Cardinal(xPixel) + SizeOf(Cardinal));  // xPixel может указывать на $1234567800000000; в xNextPixel же в этом случае попадет $0000000000000004;
   xNextPixel^ := 0;  // ну и пишем, возможно, в левый участок памяти Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1