困惑,制作一个简单的计算器之二
那个帖子上不来了,只好再发一个
两位朋友提供的源代码中都没有考虑除数为0的情况
我的思路和后一位朋友的相似
我在1/x按钮中添加的代码如下:
procedure TForm1.Button1xClick(Sender: TObject);
begin
if (StrToFloat(Screen.Text) = 0) then
begin
Screen.Text := '不能运算';
end
else if (Screen.Text <> '') then
Screen.Text := FloatToStr(1 / StrToFloat(Screen.Text))
else
Screen.Text := '不能运算';
end;
但是这样不是很好,为空的仍然报错,我不明白错在哪,盼望高手指教
还有一个问题,每次运行程序的位置怎么设定
还有按钮上文字的颜色怎么更改?我在Font属性里改成蓝色的,但是很奇怪还是黑色的
form1的Font属性也改成蓝色的了,如果改字体和粗细都是可以的
还有我想让Screen(就是Edit1)里的文字是右靠齐的怎么做呢?
TButton和TSpeedButton有什么区别呢?