无模块API函数读写内存

易语言 2020-07-04 15:23:32

.如果 (申请大小 - 已用内存 > 0)
写到内存 (到字节集 (文本), 内存指针, 内存指针) ' 把数据写到内存,超出长度自动截掉
写入长度 = 取文本长度 (文本)
内存指针 = 内存指针 + 写入长度
已用内存 = 已用内存 + 写入长度
标签3.标题 = “申请内存剩余:” + 到文本 (申请大小 - 已用内存)
.否则
信息框 (“内存已满!不能继续写入”, 0, )