黑夜彩虹 发表于 2006-6-21 17:12:32

文本计算器＋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 发表于 2006-6-21 22:37:44

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

菜儿 发表于 2006-6-22 13:08:59

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


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

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

caterpilla 发表于 2006-6-22 13:20:57

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

黑夜彩虹 发表于 2006-6-22 15:25:08

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


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

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

浮云思音 发表于 2006-6-22 17:13:51

原帖由 黑夜彩虹 于 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 ...

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

火爆登场 发表于 2006-7-22 10:13:17

好样的，都学习起来，

agang 发表于 2006-7-25 20:27:08

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

kunkun1987 发表于 2007-10-14 00:44:22

不懂DELPHI 编译不了

杨家将 发表于 2007-11-3 10:06:09

没学过delphi，做不来。
页: [1] 2
查看完整版本: 文本计算器＋ASCII计算器　源码