请教E语言转DELPHI

[qq1013000240]

.如果真 (单选框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的，请各位帮帮忙。

[hsfzxjy]

第一次见到这个语言，有意思。。

[sololie]

虽然csdn里估计没几人看过e，各编程语言的逻辑都是一样的，靠你自己了

[qq1013000240]

引用 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+'"/>';

[jaxdong]

读懂，然后写delphi就好了。

[Frank.WU]

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; .....

[lhy]

好像易语言就是Delphi做的。

[hsfzxjy]

那个循环是怎么回事？是while还是for??

[lhy]

中文变量名换成英文变量名，等号前面加冒号，循环改成for循环，写文件变成对应函数。

[qq1013000240]

引用 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的写出来。

[qq1013000240]

引用 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的写出来。

[adslong]

只是把中文翻译成英文 易转DELPHI还是比较容易

[Henry.6]

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.

[fox600123]

楼上回答问题很用心，赞一个~

[qq1013000240]

我靠，结贴分给错人了，对不起啊，回头补上。

[Henry.6]

[qq1013000240]

6rl啊，我已经另外发了帖子了，你去非技术区回个帖子吧。

[fox600123]

哈哈，不好意思啊，不知论坛能返回不？返回给12L