求渔不求鱼，哎小白结构体的难题 - 精易论坛

子程序名	返回值类型	公开	备注
数据类型测试

变量名	类型	静态	数组	备注
a	数据类型
i	整数型
局字节集	字节集
j	整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
' 自定义数据类型赋值
a.字节＝ 0
a.短整数＝ 32767  ' 取值为  -32768至32767  不要越界
a.整数＝ -2147483648  ' 取值为 -2147483648至2147483647  不要越界
a.长整数＝ 1e+014
a.文本＝ “我爱易语言”
a.字节集＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 }
a.布尔＝真
a.单精＝ 3.14
a.双精＝ 3.141592653589
a.日期时间＝取现行时间 ()
a.指针＝ &子程序1
' 取地址，输出看看数据
i ＝取指针地址 (a)
局字节集＝指针到字节集 (i, 56)
调试输出 (局字节集)
' 从地址中取回数据
输出调试文本 (取字节集数据 (局字节集, #字节型, 1))
输出调试文本 (取字节集数据 (局字节集, #短整数型, 5))
输出调试文本 (取字节集数据 (局字节集, #整数型, 9))
输出调试文本 (取字节集数据 (局字节集, #长整数型, 13))
i ＝取字节集数据 (局字节集, #整数型, 21)
输出调试文本 (指针到文本 (i))  ' ======================文本型
i ＝取字节集数据 (局字节集, #整数型, 25)
j ＝取字节集数据 (指针到字节集 (i, 8), #整数型, 5)
调试输出 (指针到字节集 (i ＋ 8, j))  ' ==================字节集
输出调试文本 (取字节集数据 (局字节集, #逻辑型, 29))
输出调试文本 (取字节集数据 (局字节集, #小数型, 33))
输出调试文本 (取字节集数据 (局字节集, #双精度小数型, 37))
输出调试文本 (取字节集数据 (局字节集, #日期时间型, 45))
输出调试文本 (取字节集数据 (局字节集, #整数型, 53))
输出调试文本 (到整数 (a.指针))
程序_Call (取字节集数据 (局字节集, #整数型, 53))

i支持库列表	支持库注释
shellEx	扩展功能支持库一
spec	特殊功能支持库

.版本 2<br />
.支持库 shellEx<br />
.支持库 spec<br />
<br />
.子程序 数据类型测试<br />
.局部变量 a, 数据类型<br />
.局部变量 i, 整数型<br />
.局部变量 局字节集, 字节集<br />
.局部变量 j, 整数型<br />
<br />
' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br />
<br />
' 自定义数据类型赋值<br />
a.字节 ＝ 0<br />
a.短整数 ＝ 32767  ' 取值为  -32768至32767  不要越界<br />
a.整数 ＝ -2147483648  ' 取值为 -2147483648至2147483647  不要越界<br />
a.长整数 ＝ 1e+014<br />
a.文本 ＝ “我爱易语言”<br />
a.字节集 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 }<br />
a.布尔 ＝ 真<br />
a.单精 ＝ 3.14<br />
a.双精 ＝ 3.141592653589<br />
a.日期时间 ＝ 取现行时间 ()<br />
a.指针 ＝ &子程序1<br />
<br />
' 取地址，输出看看数据<br />
i ＝ 取指针地址 (a)<br />
局字节集 ＝ 指针到字节集 (i, 56)<br />
调试输出 (局字节集)<br />
<br />
' 从地址中取回数据<br />
输出调试文本 (取字节集数据 (局字节集, #字节型, 1))<br />
输出调试文本 (取字节集数据 (局字节集, #短整数型, 5))<br />
输出调试文本 (取字节集数据 (局字节集, #整数型, 9))<br />
输出调试文本 (取字节集数据 (局字节集, #长整数型, 13))<br />
i ＝ 取字节集数据 (局字节集, #整数型, 21)<br />
输出调试文本 (指针到文本 (i))  ' ======================文本型<br />
i ＝ 取字节集数据 (局字节集, #整数型, 25)<br />
j ＝ 取字节集数据 (指针到字节集 (i, 8), #整数型, 5)<br />
调试输出 (指针到字节集 (i ＋ 8, j))  ' ==================字节集<br />
输出调试文本 (取字节集数据 (局字节集, #逻辑型, 29))<br />
输出调试文本 (取字节集数据 (局字节集, #小数型, 33))<br />
输出调试文本 (取字节集数据 (局字节集, #双精度小数型, 37))<br />
输出调试文本 (取字节集数据 (局字节集, #日期时间型, 45))<br />
输出调试文本 (取字节集数据 (局字节集, #整数型, 53))<br />
输出调试文本 (到整数 (a.指针))<br />
<br />
程序_Call (取字节集数据 (局字节集, #整数型, 53))

数据类型名	公开	备注
数据类型
成员名	类型	传址	数组	备注
字节	字节型			0
短整数	短整数型			4
整数	整数型			8
长整数	长整数型			12 8
文本	文本型			20
字节集	字节集			24 4 只存指针指针后前4个字节无效 5-8字节转整数就是长度，然后往后取固定长度即可
布尔	逻辑型			28
单精	小数型			32
双精	双精度小数型			36 8
日期时间	日期时间型			44 8
指针	子程序指针			52