UC知道Delphi中公式的实现，及对edit的判断
来源：百度知道 编辑：UC知道 时间：2024/05/26 15:28:10
本人刚刚接触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的代码，但是尝试了很多努力，都没奏效，希望高手大哥给写写，好让小弟学习学习，感激不尽
想实现通过在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的代码，但是尝试了很多努力，都没奏效，希望高手大哥给写写，好让小弟学习学习，感激不尽
几个思路及要注意的地方。
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
Me