请教E语言转DELPHI

qq1013000240 2013-02-12 06:29:57

.如果真 (单选框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的,请各位帮帮忙。
...全文
698 17 点赞 打赏 收藏 举报
写回复
17 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
fox600123 2013-02-18
哈哈,不好意思啊,不知论坛能返回不?返回给12L
  • 打赏
  • 举报
回复
qq1013000240 2013-02-17
6rl啊,我已经另外发了帖子了,你去非技术区回个帖子吧。
  • 打赏
  • 举报
回复
Henry.6 2013-02-17
  • 打赏
  • 举报
回复
qq1013000240 2013-02-17
我靠,结贴分给错人了,对不起啊,回头补上。
  • 打赏
  • 举报
回复
fox600123 2013-02-16
楼上回答问题很用心,赞一个~
  • 打赏
  • 举报
回复
Henry.6 2013-02-16

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    rb1: TRadioButton;  //   单选框1
    rb2: TRadioButton;  //   单选框2
    cbb1: TComboBox;    //  组合框1
    edt1: TEdit;       // 编辑框1
    edt2: TEdit;       // 编辑框2
    edt3: TEdit;       // 编辑框3
    edt4: TEdit;      //  编辑框4
    edt5: TEdit;      //  编辑框5
    edt6: TEdit;      //  编辑框6
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
    shengchengshuliang : Integer;  // 生成数量 应该是个全局变量,应该初始化
    posX : Integer;         //Y坐标  应该是个全局变量,应该初始化
    posY : Integer;         //X坐标 应该是个全局变量,应该初始化
    jg : Integer;          //间隔  应该是个全局变量,应该初始化
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.btn2Click(Sender: TObject);
var
  strs : TStringStream;
  ms : TMemoryStream;
  str1 : String;   //文本
  CurrentPath : string;
  i : Integer;
begin
  CurrentPath := ExtractFilePath(ParamStr(0));  //取得当前程序运行路径
  strs := TStringStream.Create('你好');
  ms := TMemoryStream.Create;
  try
    if rb2.checked then
    begin
      if shengchengshuliang = 1 then
      begin
        str1 := '<NPC ai_class="'  + edt1.Text + '" ' + 'x="' + edt2.Text + '" y="' + edt3.Text + '" z="' +  edt4.Text  + '" pitch="' + edt5.Text + '" yaw="' + edt6.Text + '" />';

        strs.WriteString(str1);
        strs.Position := 0;
        ms.LoadFromStream(strs);
        ms.SaveToFile(CurrentPath + '123.txt');
      end
      else
      begin
        str1 := '';
        for i := 1 to shengchengshuliang do
        begin
          if cbb1.ItemIndex = 0 then
          begin
            posY := posY + jg;
          end
          else
          begin
            posY := posY - jg;
          end;
          str1 := '<NPC ai_class="'  + edt1.Text + '" ' + 'x="' + IntToStr(posX) + '" y="' + IntToStr(posY) + '" z="' +  edt4.Text  + '" pitch="' + edt5.Text + '" yaw="' + edt6.Text + '" />' +#13#10;
          //调试输出 (文本) **忽略** 此处代码为调试用,故不写
        end;

        strs.WriteString(str1);
        strs.Position := 0;
        ms.LoadFromStream(strs);
        ms.SaveToFile(CurrentPath + '123.txt');
      end;

    end;

    MessageBox(handle, Pchar('生成成功'), '成功', MB_ICONINFORMATION + MB_OK);
  finally
    FreeAndNil(strs);
    FreeAndNil(ms);
  end;
  

end;
//此处btn1Click代码没用
procedure TForm1.btn1Click(Sender: TObject);
var
  strs : TStringStream;
  ms : TMemoryStream;
begin
  strs := TStringStream.Create('你好');
  ms := TMemoryStream.Create;
  ms.LoadFromStream(strs);
  ms.SaveToFile('d:\1.txt');
end;


end.

  • 打赏
  • 举报
回复
adslong 2013-02-16
只是把中文翻译成英文 易转DELPHI还是比较容易
  • 打赏
  • 举报
回复
qq1013000240 2013-02-15
引用 7 楼 HSFZXJY 的回复:
那个循环是怎么回事?是while还是for??
.计次循环首 (生成数量, ) .如果 (组合框1.现行选中项 = 0) Y坐标 = Y坐标 + 间隔 .否则 Y坐标 = Y坐标 - 间隔 .如果结束 文本 = 文本 + “<NPC ai_class=” + #引号 + 编辑框1.内容 + #引号 + “ ” + “x=” + #引号 + 到文本 (X坐标) + #引号 + “ ” + “y=” + #引号 + 到文本 (Y坐标) + #引号 + “ ” + “z=” + #引号 + 编辑框4.内容 + #引号 + “ ” + “pitch=” + #引号 + 编辑框5.内容 + #引号 + “ ” + “yaw=” + #引号 + 编辑框6.内容 + #引号 + “ ” + “/>” + #换行符 调试输出 (文本) .计次循环尾 () 写到文件 (取运行目录 () + “\123.txt”, 到字节集 (文本)) 这个是E语言的循环,然后生成文本。不知道怎么换成DELPHI的写出来。
  • 打赏
  • 举报
回复
qq1013000240 2013-02-15
引用 6 楼 lhylhy 的回复:
好像易语言就是Delphi做的。
.计次循环首 (生成数量, ) .如果 (组合框1.现行选中项 = 0) Y坐标 = Y坐标 + 间隔 .否则 Y坐标 = Y坐标 - 间隔 .如果结束 文本 = 文本 + “<NPC ai_class=” + #引号 + 编辑框1.内容 + #引号 + “ ” + “x=” + #引号 + 到文本 (X坐标) + #引号 + “ ” + “y=” + #引号 + 到文本 (Y坐标) + #引号 + “ ” + “z=” + #引号 + 编辑框4.内容 + #引号 + “ ” + “pitch=” + #引号 + 编辑框5.内容 + #引号 + “ ” + “yaw=” + #引号 + 编辑框6.内容 + #引号 + “ ” + “/>” + #换行符 调试输出 (文本) .计次循环尾 () 写到文件 (取运行目录 () + “\123.txt”, 到字节集 (文本)) 这个是E语言的循环,然后生成文本。不知道怎么换成DELPHI的写出来。
  • 打赏
  • 举报
回复
lhy 2013-02-15
中文变量名换成英文变量名,等号前面加冒号,循环改成for循环,写文件变成对应函数。
  • 打赏
  • 举报
回复
hsfzxjy 2013-02-14
那个循环是怎么回事?是while还是for??
  • 打赏
  • 举报
回复
lhy 2013-02-14
好像易语言就是Delphi做的。
  • 打赏
  • 举报
回复
Frank.WU 2013-02-13
var s: string;//文本 icount: integer;//生成数量 if radiobox2.checked and icount = 1 then begin s := "<NPC ai_class=" + #引号 +Edit1.Text + #引号 + " " + "x=" + #引号 + Edit2.Text + #引号 + " " + “y=" + #引号 + Edit3.Text + #引号 + " " + “z=" + #引号 + Edit4.Text + #引号 + " " + "pitch=” + #引号 + Edit5.Text + #引号 + " " + “yaw=" + #引号 + Edit6.Text + #引号 + " " + "/>"; end; .....
  • 打赏
  • 举报
回复
jaxdong 2013-02-13
读懂,然后写delphi就好了。
  • 打赏
  • 举报
回复
qq1013000240 2013-02-13
引用 4 楼 sailxia 的回复:
var s: string;//文本 icount: integer;//生成数量 if radiobox2.checked and icount = 1 then begin s := "<NPC ai_class=" + #引号 +Edit1.Text + #引号 + " " + "x=" + #引号 + Edit2.Text + #引号 + " " + “y=" + ……
朋友,编译不通过啊,还有循环在哪里呢? s := '<NPC ai_class=' +Edit1.Text+'x='+ Edit2.Text+' y='+ Edit3.Text+'z='+Edit4.Text+'pitch="0" yaw='+edit6.Text+'"/>';
  • 打赏
  • 举报
回复
sololie 2013-02-13
虽然csdn里估计没几人看过e,各编程语言的逻辑都是一样的,靠你自己了
  • 打赏
  • 举报
回复
hsfzxjy 2013-02-12
第一次见到这个语言,有意思。。
  • 打赏
  • 举报
回复
相关推荐
发帖
语言基础/算法/系统设计
加入

1.6w+

社区成员

Delphi 语言基础/算法/系统设计
申请成为版主
帖子事件
创建了帖子
2013-02-12 06:29
社区公告
暂无公告