当前位置: 代码迷 >> Delphi >> 请问E语言转DELPHI
  详细解决方案

请问E语言转DELPHI

热度:9158   发布时间:2013-02-26 00:00:00.0
请教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的,请各位帮帮忙。

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