Question

Delphi中公式的实现，及对edit的判断

本人刚刚接触Delphi
想实现通过在edit中输入数值后进行计算，总共有16个Tedit（如图）
（1）其中水眼部分 如果没输入数值 就提示“请输入”，如果输入了1个或者几个，其他没输入的值就设置为零，但是总体不能都是零，因为他们的平方和要做分母，例如计算公式：x=1/(a^2+b^2+c^2+d^2)+1/((a-b)^2*(a+b)^2)
（2）钻具部分 内径一定要比外径小
（3）所有的数不能是负数

要求多点，我就想弄个小软件，熟悉Delphi的代码，但是尝试了很多努力，都没奏效，希望高手大哥给写写，好让小弟学习学习，感激不尽

Answer 1

几个思路及要注意的地方。
1、必须要判断每个Edit输入的内容是否是数字，否则会出错。

//检测按下的键是不是0到9和退格键
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8]) then
Key := #0;
end;

2、判断没有输入可以简单地用
if Edit1.Text = '' then Showmessage('XXX值不能为空。');
Edit1.SetFocus;
3、判断是否是正数，
if inttostr(Edit1.Text)<0 then Showmessage('XXX值不能为负值。');
4、由于编辑框比较多，可以考虑用判断控件类型来一次性对所以编辑框进行正负值判断，这样效率比较高。
procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
Tmp:string;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
begin
Tmp:=(Components[i] as TEdit).Text;
try
if StrtoInt(Tmp)< 0 then
begin
MessageBox(0,'输入值不能为负数','错误',MB_OK+MB_ICONERROR);
Break;
Exit;
end;
except
MessageBox(0,'只允许输入数值！','错误',MB_OK+MB_ICONERROR);
Break;
Exit;
end;
end;
end;

Answer 2

代码很简单啊

在按钮的OnClick事件中，判断一下Edit中有没有内容。
像这样：
if Trim(Edit1.Text) = '' then
begin
MessageBox(Handle, '请输入', '系统提示', MB_ICONINFORMATION or MB_OK);
Exit;
end;

Answer 3

恩,就在你那个"计算"按钮的OnClick事件里判断各个Edit里的数据就行.
没什么难度.