指针到数组 基本所有数据类型通用,支持多层嵌套的自定义数据类型数组

福仔

指针到数组.e (6.93 KB, 下载次数: 360)

2018-3-17 21:17 上传

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

缺精币,所以最近我发的东西收费都有点高,附件5精币,不需要的就别回复了



补充内容 (2018-3-22 18:14):
改版在20楼

福仔

经测试,TMD编译后程序在关闭的时候经常崩溃,所以改了一下,不用xchg交换变量,直接mov到变量里

  

子程序名	返回值类型	公开	备 注
指针到数组	整数型		返回原数组指针,暂时没发现崩溃现象
参数名	类 型	参考	可空	数组	备 注
数组指针	整数型				一个数组指针
数组	通用型				把数组指针转换成数组

置入代码 ({ 139, 77, 8, 139, 69, 12, 139, 9, 137, 8, 201, 194, 4, 0 })
' mov ecx,[ebp+8]
' mov eax,[ebp+12]
' mov ecx,[ecx]
' ;xchg [eax],ecx
' mov [eax],ecx
' leave
' ret 4
返回 (0)

.版本 2<br /> <br /> .子程序 指针到数组, 整数型, , 返回原数组指针,暂时没发现崩溃现象<br /> .参数 数组指针, 整数型, 参考, 一个数组指针<br /> .参数 数组, 通用型, 参考 数组, 把数组指针转换成数组<br /> <br /> 置入代码 ({ 139, 77, 8, 139, 69, 12, 139, 9, 137, 8, 201, 194, 4, 0 })<br /> ' mov ecx,[ebp+8]<br /> ' mov eax,[ebp+12]<br /> ' mov ecx,[ecx]<br /> ' ;xchg [eax],ecx<br /> ' mov [eax],ecx<br /> ' leave<br /> ' ret 4<br /> 返回 (0)

有地将臣

6666666666666666666

SSS777

SSS777 发表于 2025-4-20 12:30
我按您的改成DLL，单击一次很正常，单击两次就崩溃。
不过整数数组完全没问题，反复点击几次挺正常，但是 ...

QQ与您聊天了，理解了你曾经研究过的东西，传递组件容易出错，不如 传递标签.取窗口句柄，谢谢！

帅气与大侠

SSS777 发表于 2025-4-20 12:30
我按您的改成DLL，单击一次很正常，单击两次就崩溃。
不过整数数组完全没问题，反复点击几次挺正常，但是 ...

可有偿一对一解决你遇到的bug问题Q2700433330

SSS777

帅气与大侠 发表于 2024-4-16 14:47
发现一处问题，不知道是不是所有版本的易语言都会出现，问题版本：易语言5.93
问题描述：
指针到数组(),虽 ...

我按您的改成DLL，单击一次很正常，单击两次就崩溃。
不过整数数组完全没问题，反复点击几次挺正常，但是文本数组点击一次是正常的，再单击一次就崩！

帅气与大侠

发现一处问题，不知道是不是所有版本的易语言都会出现，问题版本：易语言5.93
问题描述：
指针到数组(),虽然成功压入到数组变量了，但是在子程序结束时，易语言出现崩溃了，可能是易语言内部释放数组内存导致的
目前调试需要在子程序末尾加上一条汇编，来清理堆
置入代码 ({ 201, 195 })

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

调试输出 (“调试开始”)
_临时子程序 ()
调试输出 (“调试结束”)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
数组	文本型		0
数组指针	整数型
返回数组	文本型		0

加入成员 (数组, “1”)
加入成员 (数组, “2”)
数组指针 ＝ 取变量数据地址 (数组) － 8
指针到数组 (数组指针, 返回数组)
调试输出 (返回数组)
置入代码 ({ 201, 195 })  ' 不加此代码，子程序结束时崩溃
' leave
' ret

子程序名	返回值类型	公开	备 注
指针到数组	整数型		返回原数组指针。在子程序末尾还需额外执行:置入代码{201,195}
参数名	类 型	参考	可空	数组	备 注
数组指针	整数型				一个数组指针
返回数组	通用型				基本支持所有类型

置入代码 ({ 139, 93, 8, 139, 69, 12, 255, 51, 143, 0, 201, 194, 8, 0 })
返回 (0)
' __asm{
' ; mov ebx,dword [ebp+8]
' ; mov eax,dword [ebp+12]
' ; push dword [ebx]
' ; pop dword [eax]
' ; leave
' ; retn 8
' }

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> 调试输出 (“调试开始”)<br /> _临时子程序 ()<br /> 调试输出 (“调试结束”)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数组指针, 整数型<br /> .局部变量 返回数组, 文本型, , "0"<br /> <br /> 加入成员 (数组, “1”)<br /> 加入成员 (数组, “2”)<br /> 数组指针 ＝ 取变量数据地址 (数组) － 8<br /> 指针到数组 (数组指针, 返回数组)<br /> 调试输出 (返回数组)<br /> <br /> 置入代码 ({ 201, 195 })  ' 不加此代码，子程序结束时崩溃<br /> ' leave<br /> ' ret<br /> <br /> .子程序 指针到数组, 整数型, , 返回原数组指针。在子程序末尾还需额外执行:置入代码{201,195}<br /> .参数 数组指针, 整数型, 参考, 一个数组指针<br /> .参数 返回数组, 通用型, 参考 数组, 基本支持所有类型<br /> <br /> 置入代码 ({ 139, 93, 8, 139, 69, 12, 255, 51, 143, 0, 201, 194, 8, 0 })<br /> 返回 (0)<br /> <br /> ' __asm{<br /> ' ; mov ebx,dword [ebp+8]<br /> ' ; mov eax,dword [ebp+12]<br /> ' ; push dword [ebx]<br /> ' ; pop dword [eax]<br /> ' ; leave<br /> ' ; retn 8<br /> ' }

漫漫长路

你分分享，非常好

漫漫长路

感谢分享

sunfly

没有找到名为“通用型”的数据类型

那小子很坏

怎么还原啊

2467201838dark

6666666666666666666666666666666666666666666666666666666666