易语言写通用型数据,取通用型的值

350246356

给自己留个笔记吧，易语言不支持重载，这样传递不同类型数据时可以少声明几个子程序
写通用型数据.e (4.53 KB, 下载次数: 156)

2020-12-31 15:19 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
buff	字节集
pos	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

测试写入 ( #整数型, -1)
测试写入 ( #字节型, 255)
测试写入 ( #字节集型, { 1, 2, 3 })
测试写入 ( #整数型, -1)
测试写入 ( #短整数型, 4)
测试写入 ( #文本型, “hello world”)
测试写入 ( #小数型, 到小数 (3.14))
测试写入 ( #双精度小数型, 到数值 (3.14))
' 正在封装易格式目的代码
' 开始运行被调试程序
' * 字节集:4{255,255,255,255}
' * 字节集:5{255,255,255,255,255}
' * 字节集:8{255,255,255,255,255,1,2,3}
' * 字节集:12{255,255,255,255,255,1,2,3,255,255,255,255}
' * 字节集:14{255,255,255,255,255,1,2,3,255,255,255,255,4,0}
' * 字节集:26{255,255,255,255,255,1,2,3,255,255,255,255,4,0,104,101,108,108,111,32,119,111,114,108,100,0}
' * 字节集:30{255,255,255,255,255,1,2,3,255,255,255,255,4,0,104,101,108,108,111,32,119,111,114,108,100,0,195,245,72,64}
' * 字节集:38{255,255,255,255,255,1,2,3,255,255,255,255,4,0,104,101,108,108,111,32,119,111,114,108,100,0,195,245,72,64,31,133,235,81,184,30,9,64}

子程序名	返回值类型	公开	备 注
测试写入
参数名	类 型	参考	可空	数组	备 注
type	整数型
data	通用型

变量名	类 型	静态	数组	备 注
ptr	整数型
size	整数型

ptr ＝ 0
置入代码 ({ 139, 69, 12, 137, 69, 252 })  ' 把参数2的地址赋值给变量1
判断 (type ＝ #字节集型 )
ptr ＝ 指针到整数 (ptr)
size ＝ 指针到整数 (ptr ＋ 4)
ptr ＝ ptr ＋ 8
判断 (type ＝ #文本型 )
ptr ＝ 指针到整数 (ptr)
size ＝ strlen (ptr) ＋ 1
size ＝ 取数据类型尺寸 (type)
buff ＝ buff ＋ 取空白字节集 (size)
RtlMoveMemory (_取变量数据地址 (buff) ＋ 8 ＋ pos, ptr, size)
pos ＝ pos ＋ size
调试输出 (buff)

子程序名	返回值类型	公开	备 注
_取变量数据地址	整数型
参数名	类 型	参考	可空	数组	备 注
变量	通用型				基本支持所有类型

置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 buff, 字节集<br /> .程序集变量 pos, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 测试写入 (#整数型, -1)<br /> 测试写入 (#字节型, 255)<br /> 测试写入 (#字节集型, { 1, 2, 3 })<br /> 测试写入 (#整数型, -1)<br /> 测试写入 (#短整数型, 4)<br /> 测试写入 (#文本型, “hello world”)<br /> 测试写入 (#小数型, 到小数 (3.14))<br /> 测试写入 (#双精度小数型, 到数值 (3.14))<br /> ' 正在封装易格式目的代码<br /> ' 开始运行被调试程序<br /> ' * 字节集:4{255,255,255,255}<br /> ' * 字节集:5{255,255,255,255,255}<br /> ' * 字节集:8{255,255,255,255,255,1,2,3}<br /> ' * 字节集:12{255,255,255,255,255,1,2,3,255,255,255,255}<br /> ' * 字节集:14{255,255,255,255,255,1,2,3,255,255,255,255,4,0}<br /> ' * 字节集:26{255,255,255,255,255,1,2,3,255,255,255,255,4,0,104,101,108,108,111,32,119,111,114,108,100,0}<br /> ' * 字节集:30{255,255,255,255,255,1,2,3,255,255,255,255,4,0,104,101,108,108,111,32,119,111,114,108,100,0,195,245,72,64}<br /> ' * 字节集:38{255,255,255,255,255,1,2,3,255,255,255,255,4,0,104,101,108,108,111,32,119,111,114,108,100,0,195,245,72,64,31,133,235,81,184,30,9,64}<br /> <br /> .子程序 测试写入<br /> .参数 type, 整数型<br /> .参数 data, 通用型, 参考<br /> .局部变量 ptr, 整数型<br /> .局部变量 size, 整数型<br /> <br /> ptr ＝ 0<br /> 置入代码 ({ 139, 69, 12, 137, 69, 252 })  ' 把参数2的地址赋值给变量1<br /> .判断开始 (type ＝ #字节集型)<br />     ptr ＝ 指针到整数 (ptr)<br />     size ＝ 指针到整数 (ptr ＋ 4)<br />     ptr ＝ ptr ＋ 8<br /> .判断 (type ＝ #文本型)<br />     ptr ＝ 指针到整数 (ptr)<br />     size ＝ strlen (ptr) ＋ 1<br /> .默认<br />     size ＝ 取数据类型尺寸 (type)<br /> .判断结束<br /> buff ＝ buff ＋ 取空白字节集 (size)<br /> RtlMoveMemory (_取变量数据地址 (buff) ＋ 8 ＋ pos, ptr, size)<br /> pos ＝ pos ＋ size<br /> 调试输出 (buff)<br /> <br /> .子程序 _取变量数据地址, 整数型<br /> .参数 变量, 通用型, 参考, 基本支持所有类型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })<br /> 返回 (0)

xkAnd

哈，这个方法不错呢，能省去不少麻烦。我也试过类似的操作，确实方便很多，谢谢分享啊！

wkn20051123

感谢分享，很给力！~

3311731553

支持开源感谢分

孤久成瘾

大力支持

孤久成瘾

感谢感谢

yywl8888

宝贵经验啊，很值得学习

aai888

这个很不错

czcjw

6666666666666666

艾玛克138

宝贵经验啊，很值得学习

xzc1215

你的源码怎么能加通用型参数