新年好 易语言 sizeof 函数实现

夙愿ing

感谢楼主分享

clarand2024

学习一下

lm88818

感谢分享，很给力！~

ww877

666666666666666666666666666

韦贝贝

易语言 sizeof 函数实现

牛儿飞

wtlax

666666666666

帅气与大侠

提示：找不到通用型变量 需要到精易模块源码里找取指针_通用型()，复制下里面的通用型就可以了

  

子程序名	返回值类型	公开	备 注
sizeof	整数型		取数据结构的尺寸大小
参数名	类 型	参考	可空	数组	备 注
变量	通用型				数据结构变量，不能是数组，且数据结构未赋值

变量名	类 型	静态	数组	备 注
pAddr	整数型
I	整数型
char	字节型
count	整数型
len	整数型
ptr	整数型
size	整数型

pAddr ＝ __get (取指针_通用型 (变量), 0)
如果真 (pAddr ＞ 0 且 pAddr ＜ 10)
返回 (取数据类型尺寸 (pAddr))

循环判断首 ()
char ＝ __get_byte (pAddr, I)
判断 (char ＝ 171)
count ＝ count ＋ 1
count ＝ 0

I ＝ I ＋ 1
循环判断尾 (count ＜ 7)
len ＝ I － count ＋ 1
变量循环首 (0, len, 4, I)
ptr ＝ __get (pAddr, I)
判断 (指针_是否有效 (ptr) ＝ 真)
如果真 (__get (ptr, 0) ＝ 1)  ' 如果开头是{1,0,0,0},可能是数组
ptr ＝ ptr ＋ 8

size ＝ size ＋ sizeof (ptr)
size ＝ size ＋ 4

变量循环尾 ()
如果真 (size ≠ 0)
size ＝ size － 4
返回 (size)

.版本 2<br /> <br /> .子程序 sizeof, 整数型, 公开, 取数据结构的尺寸大小<br /> .参数 变量, 通用型, 参考, 数据结构变量，不能是数组，且数据结构未赋值<br /> .局部变量 pAddr, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 char, 字节型<br /> .局部变量 count, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 ptr, 整数型<br /> .局部变量 size, 整数型<br /> <br /> pAddr ＝ __get (取指针_通用型 (变量), 0)<br /> .如果真 (pAddr ＞ 0 且 pAddr ＜ 10)<br />     返回 (取数据类型尺寸 (pAddr))<br /> .如果真结束<br /> <br /> .循环判断首 ()<br />     char ＝ __get_byte (pAddr, I)<br />     .判断开始 (char ＝ 171)<br />         count ＝ count ＋ 1<br />     .默认<br />         count ＝ 0<br />     .判断结束<br /> <br />     I ＝ I ＋ 1<br /> .循环判断尾 (count ＜ 7)<br /> len ＝ I － count ＋ 1<br /> <br /> .变量循环首 (0, len, 4, I)<br />     ptr ＝ __get (pAddr, I)<br />     .判断开始 (指针_是否有效 (ptr) ＝ 真)<br />         .如果真 (__get (ptr, 0) ＝ 1)  ' 如果开头是{1,0,0,0},可能是数组<br />             ptr ＝ ptr ＋ 8<br />         .如果真结束<br /> <br />         size ＝ size ＋ sizeof (ptr)<br />     .默认<br />         size ＝ size ＋ 4<br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> .如果真 (size ≠ 0)<br />     size ＝ size － 4<br /> .如果真结束<br /> 返回 (size)

王业顺

支持开源。谢谢分享

pyiping

支持开源。谢谢分享