文本计算器＋ASCII计算器 源码

黑夜彩虹

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     Edit1.Text:=IntToStr(Length(memo1.Text));  //计算长度
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      Memo1.Text:='';        //初始化
      Edit1.Text:='';        //初始化
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   Label2.Caption:=char(key);             //得到所按的key
   Label3.Caption:=IntToStr(Ord(key));     //计算它的ASCII值
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     Label2.Caption:='';                //初始化
     Label3.Caption:='';               //初始化
end;

＝＝＝＝＝＝＝＝＝＝这里顺便说说程序用到几个函数＝＝＝＝＝＝＝＝＝＝＝＝
IntToStr ：将整型数转换为字符串
Length   ：计算长度
Ord        ：返回序数类的序数
Char      ：转换字符类型
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

作业要求：大家动手试试，编译EXE文件，贴图上来~~~ ;P

[ 本帖最后由 黑夜彩虹 于 2006-6-21 17:22 编辑 ]

野猫III

呵呵...Length,学习咯...

菜儿

黑楼主考虑..写个制作过程录象,让我等菜鸟学习,


强烈要求为黑楼主加精:victory:victory:

[ 本帖最后由 黑夜彩虹 于 2006-6-22 15:24 编辑 ]

caterpilla

呵呵，楼主很起表率作用啊。。。。。。。。。。。

黑夜彩虹

原帖由 菜儿 于 2006-6-22 13:08 发表
黑楼主考虑..写个制作过程录象,让我等菜鸟学习,


强烈要求为黑楼主加精:victory:victory:

不用做录像了吧，源码都贴出来了，照做就可以了，而且源码都有注释~~ :P

浮云思音

原帖由 黑夜彩虹 于 2006-6-21 17:12 发表
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     Edit1.Text:=IntToStr(Length(memo1.Text));  //计算长度
end;

procedure TForm1 ...

原程序给出了,只是搭建的问题了

火爆登场

好样的，都学习起来，

agang

戴妃又活过来了啦,哈哈哈

kunkun1987

不懂DELPHI 编译不了

杨家将

没学过delphi，做不来。