这是一个用易语言写的简单的神泣商城查看工具，偶不会易语言。请高手改成DELPHI的程序
在些谢过了
.版本 2
.支持库 eGrid
.程序集 窗口程序集1
.子程序 _按钮1_被单击
读取数据 ()
.子程序 读取数据
.参数 文件地址, 文本型
.局部变量 文件号, 整数型
.局部变量 编号, 文本型
.局部变量 分类, 文本型
.局部变量 图像, 文本型
.局部变量 物品名称, 文本型
.局部变量 物品代码, 文本型
.局部变量 物品价格, 文本型
.局部变量 物品描述, 文本型
.局部变量 物品1, 文本型
.局部变量 数量1, 文本型
.局部变量 物品2, 文本型
.局部变量 数量2, 文本型
.局部变量 物品3, 文本型
.局部变量 数量3, 文本型
.局部变量 物品4, 文本型
.局部变量 数量4, 文本型
.局部变量 物品5, 文本型
.局部变量 数量5, 文本型
.局部变量 物品6, 文本型
.局部变量 数量6, 文本型
.局部变量 物品7, 文本型
.局部变量 数量7, 文本型
.局部变量 物品8, 文本型
.局部变量 数量8, 文本型
.局部变量 物品9, 文本型
.局部变量 数量9, 文本型
.局部变量 物品10, 文本型
.局部变量 数量10, 文本型
.局部变量 物品11, 文本型
.局部变量 数量11, 文本型
.局部变量 物品12, 文本型
.局部变量 数量12, 文本型
.局部变量 物品13, 文本型
.局部变量 数量13, 文本型
.局部变量 物品14, 文本型
.局部变量 数量14, 文本型
.局部变量 物品15, 文本型
.局部变量 数量15, 文本型
.局部变量 物品16, 文本型
.局部变量 数量16, 文本型
.局部变量 物品17, 文本型
.局部变量 数量17, 文本型
.局部变量 物品18, 文本型
.局部变量 数量18, 文本型
.局部变量 物品19, 文本型
.局部变量 数量19, 文本型
.局部变量 物品20, 文本型
.局部变量 数量20, 文本型
.局部变量 物品21, 文本型
.局部变量 数量21, 文本型
.局部变量 物品22, 文本型
.局部变量 数量22, 文本型
.局部变量 物品23, 文本型
.局部变量 数量23, 文本型
.局部变量 物品24, 文本型
.局部变量 数量24, 文本型
.局部变量 物品名称长度, 整数型
.局部变量 物品代码长度, 整数型
.局部变量 物品描述长度, 整数型
.局部变量 高级对话框, 文本型
.局部变量 行号, 整数型
文件号 ＝ 打开文件 (文件地址, #读写, #无限制)
.如果真 (文件号 ＝ 0)
返回 ()
.如果真结束
移动读写位置 (文件号, , 4)
.判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
编号 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
分类 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
图像 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
物品价格 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
物品1 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量1 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品2 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量2 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品3 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量3 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品4 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量4 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品5 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量5 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品6 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量6 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品7 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量7 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品8 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量8 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品9 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量9 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品10 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量10 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品11 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量11 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品12 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量12 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品13 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量13 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品14 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量14 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品15 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量15 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品16 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量16 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品17 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量17 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品18 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量18 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品19 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量19 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品20 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量20 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品21 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量21 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品22 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量22 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品23 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量23 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品24 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 4), #整数型, ))
数量24 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 1), #整数型, ))
物品名称长度 ＝ 取字节集数据 (读入字节集 (文件号, 4), #整数型, )
物品名称 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 物品名称长度), #文本型, ))
物品代码长度 ＝ 取字节集数据 (读入字节集 (文件号, 4), #整数型, )
物品代码 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 物品代码长度), #文本型, ))
物品描述长度 ＝ 取字节集数据 (读入字节集 (文件号, 4), #整数型, )
物品描述 ＝ 到文本 (取字节集数据 (读入字节集 (文件号, 物品描述长度), #文本型, ))
行号 ＝ 行号 ＋ 1
高级表格1.插入行 (, 行号)
高级表格1.置数据 (行号, 0, 1, 编号)
高级表格1.置数据 (行号, 1, 1, 分类)
高级表格1.置数据 (行号, 2, 1, 图像)
高级表格1.置数据 (行号, 3, 1, 物品名称)
高级表格1.置数据 (行号, 4, 1, 物品代码)
高级表格1.置数据 (行号, 5, 1, 物品描述)
高级表格1.置数据 (行号, 6, 1, 物品价格)
高级表格1.置数据 (行号, 7, 1, 物品1)
高级表格1.置数据 (行号, 8, 1, 数量1)
高级表格1.置数据 (行号, 9, 1, 物品2)
高级表格1.置数据 (行号, 10, 1, 数量2)
高级表格1.置数据 (行号, 11, 1, 物品3)
高级表格1.置数据 (行号, 12, 1, 数量3)
高级表格1.置数据 (行号, 13, 1, 物品4)
高级表格1.置数据 (行号, 14, 1, 数量4)
高级表格1.置数据 (行号, 15, 1, 物品5)
高级表格1.置数据 (行号, 16, 1, 数量5)
高级表格1.置数据 (行号, 17, 1, 物品6)
高级表格1.置数据 (行号, 18, 1, 数量6)
高级表格1.置数据 (行号, 19, 1, 物品7)
高级表格1.置数据 (行号, 20, 1, 数量7)
高级表格1.置数据 (行号, 21, 1, 物品8)
高级表格1.置数据 (行号, 22, 1, 数量8)
高级表格1.置数据 (行号, 23, 1, 物品9)
高级表格1.置数据 (行号, 24, 1, 数量9)
高级表格1.置数据 (行号, 25, 1, 物品10)
高级表格1.置数据 (行号, 26, 1, 数量10)
高级表格1.置数据 (行号, 27, 1, 物品11)
高级表格1.置数据 (行号, 28, 1, 数量11)
高级表格1.置数据 (行号, 29, 1, 物品12)
高级表格1.置数据 (行号, 30, 1, 数量12)
高级表格1.置数据 (行号, 31, 1, 物品13)
高级表格1.置数据 (行号, 32, 1, 数量13)
高级表格1.置数据 (行号, 33, 1, 物品14)
高级表格1.置数据 (行号, 34, 1, 数量14)
高级表格1.置数据 (行号, 35, 1, 物品15)
高级表格1.置数据 (行号, 36, 1, 数量15)
高级表格1.置数据 (行号, 37, 1, 物品16)
高级表格1.置数据 (行号, 38, 1, 数量16)
高级表格1.置数据 (行号, 39, 1, 物品17)
高级表格1.置数据 (行号, 40, 1, 数量17)
高级表格1.置数据 (行号, 41, 1, 物品18)
高级表格1.置数据 (行号, 42, 1, 数量18)
高级表格1.置数据 (行号, 43, 1, 物品19)
高级表格1.置数据 (行号, 44, 1, 数量19)
高级表格1.置数据 (行号, 45, 1, 物品20)
高级表格1.置数据 (行号, 46, 1, 数量20)
高级表格1.置数据 (行号, 47, 1, 物品21)
高级表格1.置数据 (行号, 48, 1, 数量21)
高级表格1.置数据 (行号, 49, 1, 物品22)
高级表格1.置数据 (行号, 50, 1, 数量22)
高级表格1.置数据 (行号, 51, 1, 物品23)
高级表格1.置数据 (行号, 52, 1, 数量23)
高级表格1.置数据 (行号, 53, 1, 物品24)
高级表格1.置数据 (行号, 54, 1, 数量24)
.判断循环尾 ()
.子程序 __启动窗口_创建完毕
读取数据 (“Cash.SData”)
高级表格1.置数据 (0, 0, 1, “编号”)
高级表格1.置数据 (0, 1, 1, “分类”)
高级表格1.置数据 (0, 2, 1, “图像”)
高级表格1.置数据 (0, 3, 1, “物品名称”)
高级表格1.置数据 (0, 4, 1, “物品代码”)
高级表格1.置数据 (0, 5, 1, “物品描述”)
高级表格1.置数据 (0, 6, 1, “物品价格”)
高级表格1.置数据 (0, 7, 1, “物品1”)
高级表格1.置数据 (0, 8, 1, “数量”)
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！
