Модератор: Модераторы
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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2