用Delphi编一个能比较三个数大小的程序???

procedure TForm1.Button1Click(Sender: TObject)

var

max,a,b,c:integer

begin

a:=strtoint(edit1.Text)

b:=strtoint(edit2.Text)

c:=strtoint(edit3.Text) //输入3个闷闹数

if a>b then

max:=a

else

max:=b

if max>c then

showmessage('最大的数液陵是:'+inttostr(max))

else

showmessage('最闹罩戚大的数是:'+inttostr(c))

end

但是Delphi编译的程序都只野稿有一种状态！就是那个32*32，那么Delphi到底可不可以做到呢颂宽孝？回答是肯定的！

1：修改DPR文件，找到那个含有{$R *.Res}的那一行，把他修改成{$R %ProjectName%.RES}

2：用VC++或者ImageEditor打开这个Res文件，对它进行编辑即可，可以打开一个ICON文件Copy下来，Paste到那个16*16的图标即可。下面以用VC++编辑为例：

启动VC++，用Open打开这个RES文件，可以看到里面有一个Mainicon的图标，双击它，出来一个Icon编辑窗口，其中工具栏最右边有一个按钮，点击一下然后建立一个16*16大小的图标即可，可以编辑它保存即可，也可以用VC++打巧昌开一个已经编辑好的ICON，Copy&Paste即可。

3：编译即可！

注意：这个方法将不能够用Project Options来修改Application 的Icon。

我猜想，必须这么麻烦的原因，在于Delphi每次会自动重新生成那个该死的RES，不使用{$R *.Res}而采用{$R %ProjectName%.RES}，系统认为不要自动重新生成RES文件，所以那做的修改就会保存下来了！采用这种方法，对编译程序没有任何影响！不会有任何错误！

delphi 7 编译后有360KB，其余版本没怎么用过,不过XE5编译出来的文件是挺迟扮宽大的~可以通过一定的方法去缩小体积，可以参考http://my.oschina.net/u/582827/blog/297422

见过牛缺念人直接用API实现窗码亮体的，编译出来只有几KB ，不过那样做没有什么意义，体现不了VCL的优势~

---