procedure TForm1.Edit1Exit(Sender: TObject);
begin
qd:=0;zd:=0;qc:=0;
if (Edit1.Text<>'')and(Edit2.Text<>'') then
begin
qd:=StrToFloat(Edit1.Text)*1000+StrToFloat(Edit2.Text);
if (Edit3.Text<>'')and(Edit4.Text<>'') then
begin
zd:=StrToFloat(Edit3.Text)*1000+StrToFloat(Edit4.Text);
if zd<qd then
begin
MessageDlg('错误!起点大于终点!',mtWarning,[mbOK],0);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end else
begin
qc:=zd-qd;
Edit5.Text:=FloatToStr(qc);
end;
end;
end;
end;
三个变量为全局变量Extended,四个Edit的OnExit都是这个,有时计算出的结果是对的,有时不对
[此贴子已经被作者于2007-10-24 23:05:58编辑过]