delphi xe android 字节,数组 – Delphi XE字节数组索引

末蓝、 2022-10-16 00:43 86阅读 0赞

问题是：

Is a wrap expected within the Byte() cast?

让我们将反汇编与溢出检查打开/关闭进行比较.

\{$Q+\}

Project71.dpr.21: for ptr:= 0 to 10 do Values\[Byte(ptr-5)\]:= 1;

0041D568 33DB xor ebx,ebx

0041D56A 0FB6C3 movzx eax,bl

0041D56D 83E805 sub eax,$05

0041D570 7105 jno $0041d577

0041D572 E82D8DFEFF call @IntOver

0041D577 0FB6C0 movzx eax,al

0041D57A C704870000803F mov \[edi+eax\*4\],$3f800000

0041D581 43 inc ebx

0041D582 80FB0B cmp bl,$0b

0041D585 75E3 jnz $0041d56a

\{$Q-\}

Project71.dpr.21: for ptr:= 0 to 10 do Values\[Byte(ptr-5)\]:= 1;

0041D566 B30B mov bl,$0b

0041D568 B808584200 mov eax,$00425808

0041D56D C7000000803F mov \[eax\],$3f800000

0041D573 83C004 add eax,$04

0041D576 FECB dec bl

0041D578 75F3 jnz $0041d56d

使用\{$Q\}包装有效,而使用\{$Q-\}包装不起作用,并且当设置\{$R\}时,编译器不会为错误的数组索引生成范围错误.

因此,对我来说结论是：由于范围检查不会为数组索引超出边界生成运行时错误,因此需要进行换行.

这一事实进一步证明了在启用溢出检查时完成换行的事实.

这应该报告为编译器中的错误.

注意：@Rudy在他的回答中提供了一种解决方法.

附录：

以下代码：

for ptr:= 0 to 10 do WriteLn(Byte(ptr-5));

产生：

251

252

253

254

255

0

1

2

3

4

5

对于范围/溢出检查的所有组合.

同样值\[Byte(-1)\]：= 1;为所有编译器选项的值\[255\]分配1.

The resulting value is obtained by converting the expression in parentheses. This may involve truncation or extension if the size of the specified type differs from that of the expression. The expression’s sign is always preserved.

发表评论取消回复

表情：

评论列表（有 0 条评论，86人围观）

还没有评论，来说两句吧...

相关阅读

相关德尔福历史从Pascal到Embarcadero Delphi XE 2

This document provides concise descriptions of Delphi versions and its history, along wi

客官°小女子只卖身不卖艺/ 2022年12月06日 15:26/ 0 赞/ 135 阅读

相关 delphi xe android 字节,数组 – Delphi XE字节数组索引

问题是： Is a wrap expected within the Byte() cast? 让我们将反汇编与溢出检查打开/关闭进行比较. \{$Q+\} Proje

末蓝、/ 2022年10月16日 00:43/ 0 赞/ 87 阅读

相关 delphi mysql5.1,使用Delphi Xe2和MySQL 5.1，如何从查询返回UTF8字符串？

![Image 1][] I'm developing a DataSnap server that make some query to db MySQL 5.1, tab

爱被打了一巴掌/ 2022年08月29日 14:47/ 0 赞/ 130 阅读

相关操作字节数组

package other; import java.io.ByteArrayInputStream; import java.io.Byte

超、凢脫俗/ 2022年08月09日 05:25/ 0 赞/ 152 阅读

相关 unity+AssetBundle字节数组加密

1.加密：对assetbundle的字节数组每位进行与key的异或处理（相同为0，不同为1） using System; using System.Colle

待我称王封你为后i/ 2022年06月01日 22:55/ 0 赞/ 124 阅读

相关 Delphi XE2 之 FireMonkey 入门(1)

原文地址为： [Delphi XE2 之 FireMonkey 入门(1)][Delphi XE2 _ FireMonkey _1] [Delphi][] XE

阳光穿透心脏的1/2处/ 2022年05月17日 10:38/ 0 赞/ 136 阅读

相关 Delphi XE2 从Excel导入到数据库《LceMeaning》

以下代码经本人在Delphi XE2 下通过编译 uses Comobj; procedure EXCEL1Click(Sender:

╰半夏微凉°/ 2021年12月17日 02:23/ 0 赞/ 289 阅读

相关 Delphi XE5 Android 运行黑屏卡死的解决方法

1. 确保正确安装Android SDK：开始菜单 > 所有程序 > Embarcadero RAD Studio XE5 > > Android Tools

骑猪看日落/ 2021年11月26日 16:16/ 0 赞/ 339 阅读

相关 Delphi XE5 android 获取网络状态《转》

unit Androidapi.JNI.Network; interface function IsConnected: Boole

超、凢脫俗/ 2021年09月30日 07:06/ 0 赞/ 191 阅读

相关 C++Builder/Delphi XE2 UniDAC安装教程

C++Builder/Delphi XE2 UniDAC安装教程 UniDAC是一个功能强大的非可视化跨数据库的数据访问组件，可用于Delphi，Delphi for .N

Myth丶恋晨/ 2021年09月18日 11:36/ 0 赞/ 588 阅读