请教E语言转DELPHI

2013-02-12 06:29:57 792 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi语言的字符串处理在软件开发中，字符串处理是一个不可或缺的部分。无论是用户输入、文件读写，还是数据传输，字符串的操作在程序中都扮演着至关重要的角色。Delphi语言作为一种强大的编程语言，提供了丰富的字符串处理功能。本文旨在深入探讨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的，请各位帮帮忙。

...全文

Delphi语言的语法 Delphi允许使用type关键字自定义数据类型，包括记录（record）、集合（set）和类（class）等。以下是一个记录类型的示例：```pascaltypeend;varbeginstudent.Name := '张三';end;```在Delphi中，可以使用class关键字定义类。以下是一个简单的类定义示例：```pascaltypeprivatepublicvirtual;end;beginend;begin。阅读详情

qq1013000240

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

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做的。

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

打赏
举报

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

请教E语言转DELPHI

相关推荐