一个求数值然后进行比较的问题。

Question

procedure TForm1.Edit1Exit(Sender: TObject);0D
begin
  //比较
  if 大于3 then
  begin
    ShowMessage('要求用户在memo1.text里输入原因');
    memo1.SetFocus;    
  end;
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

哥啊，我想不出来啊。这样吧，我现在所两个数分别赋给了A和B，我想现想让这个变量进行计算，(a-b)/b，用delphi和SQL来写要怎么样？帮我写一下。
我想要这样做:
if (a-b)/b>%3 then
begin
showmessage('超过3％，请写备注');
end;其中的(a-b)/b>%3 要怎么写才能成功？