MyException - 我的异常网
当前位置:我的异常网» Delphi » 请问E语言转DELPHI

请问E语言转DELPHI

www.MyException.Cn  网友分享于:2013-02-20  浏览:4次
请教E语言转DELPHI

.如果真 (单选框2.选中 = 真)
    .如果 (生成数量 = 1)
        文本 = “<NPC ai_class=” + #引号 + 编辑框1.内容 + #引号 + “ ” + “x=” + #引号 + 编辑框2.内容 + #引号 + “ ” + “y=” + #引号 + 编辑框3.内容 + #引号 + “ ” + “z=” + #引号 + 编辑框4.内容 + #引号 + “ ” + “pitch=” + #引号 + 编辑框5.内容 + #引号 + “ ” + “yaw=” + #引号 + 编辑框6.内容 + #引号 + “ ” + “/>”
        写到文件 (取运行目录 () + “\123.txt”, 到字节集 (文本))
    .否则
        文本 = “”
        .计次循环首 (生成数量, )
            .如果 (组合框1.现行选中项 = 0)
                Y坐标 = Y坐标 + 间隔
            .否则
                Y坐标 = Y坐标 - 间隔
            .如果结束
            文本 = 文本 + “<NPC ai_class=” + #引号 + 编辑框1.内容 + #引号 + “ ” + “x=” + #引号 + 到文本 (X坐标) + #引号 + “ ” + “y=” + #引号 + 到文本 (Y坐标) + #引号 + “ ” + “z=” + #引号 + 编辑框4.内容 + #引号 + “ ” + “pitch=” + #引号 + 编辑框5.内容 + #引号 + “ ” + “yaw=” + #引号 + 编辑框6.内容 + #引号 + “ ” + “/>” + #换行符
            调试输出 (文本)
        .计次循环尾 ()
        写到文件 (取运行目录 () + “\123.txt”, 到字节集 (文本))
    .如果结束

    信息框 (“生成成功”, 0, “成功”)
---------------------------------------------------
新学DELPHI,不知道该如何把E语言专程DELPHI的,请各位帮帮忙。

------解决方案--------------------
楼上回答问题很用心,赞一个~

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有