delphi 2007 vs E语言 vs C#运行速度

delphi 2007 vs E语言 vs C#运行速度_第1张图片

这是用E语言编译的,因为我用的4.05试用版本,没有办法生成EXE文件,只能在E语言环境 下运行

这是E语言的代码:

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 时间1, 长整数型
.局部变量 时间2, 长整数型
.局部变量 结果, 整数型
.局部变量 到文本, 整数型

时间1 = 取启动时间 ()
结果 = SumTimes (到数值 (编辑框1.内容))
时间2 = 取启动时间 () - 时间1

编辑框2.内容 = 编辑框2.内容 + 到文本 (结果) + “次累加运算耗费:” + 到文本 (时间2) + “毫秒” + #换行符


.子程序 SumTimes, 长整数型
.参数 timer, 长整数型
.局部变量 结果, 长整数型


结果 = 0
.计次循环首 (timer, )
    结果 = 结果 + 1
.计次循环尾 ()
返回 (结果)

 

delphi 2007 vs E语言 vs C#运行速度_第2张图片

这是delphi 2007编译的EXE文件,可以看出差好多了

这是delphi的代码:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    btnAdd: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure btnAddClick(Sender: TObject);
  private
    { Private declarations }
    function SumTimes(i:Integer):string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnAddClick(Sender: TObject);
var
  dEnd:real;
  dStart:Integer;
  str:string;
begin
  dStart:=GetTickCount;
  str:=SumTimes(strToInt(trim(Edit1.Text)));
  dEnd:=GetTickCount-dStart;
  memo1.Lines.Add(edit1.Text+'次累加运算耗费:'+floattostr(dEnd)+' 毫秒');
end;

function TForm1.SumTimes(i: Integer):string;
var j,m:integer;

begin
  for j := 0 to i - 1 do
  begin
    m:=m+1;
  end;
  result:=inttostr(m);
end;

end.

 

delphi 2007 vs E语言 vs C#运行速度_第3张图片

这是我用C# 2005的测试程序,大家可以测试下。

下面是C#的代码:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace cSharpTest
{
    public partial class Form1 : Form
    {

        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            //System.DateTime currentTime = new System.DateTime();
            int iStart, iEnd;
            long st;
            iStart = Environment.TickCount;
            st = SumTimer(long.Parse(textBox1.Text));
            //System.DateTime currentTime1 = new System.DateTime();

            iEnd = Environment.TickCount - iStart;

            rtb.AppendText(textBox1.Text + "次累加运算耗费:" + iEnd.ToString()+" 毫秒/n");
           
        }
        private long SumTimer(long s)
        {
            long m=0;
            for (long i = 1; i <= s; i++)
            {
                m += 1;
            }
           
            return m;
        }
    }
}

 

结论:这几个编译器,可以看出效率最高的是直接编译成机器码的delphi,他所编译出的代码大小(418K)。但是C#和E语言都不是直接编译成机器码,所以没有什么可比性,但是E语言的效率比C#高确实有点惊喜!

测试文件:

c#        编译的文件:点次下载 http://dl2.csdn.net/down4/20070628/28050252199.exe 

delphi 编译的文件:点次下载  http://http://dl2.csdn.net/down4/20070628/28050658854.exe

你可能感兴趣的:(delphi 2007 vs E语言 vs C#运行速度)