1.Double类型

    var d: Double

   begin

        d := -12.35;

        if d = -12.35 then

             showmessage('sb, delphi竟有这种bug')         //竟然是这一句

        else

              showmessage('good, delphi');

   end;

2.ado的事务

   adoConnection.BeginTrans

  try

         //........................在这里好几个Insert语句执行之。

        adoConnection.Commit;

  except

        adoConnection.Rollback;

  end;

你会发现只有最后一句才Insert了，前面几个Insert不成功, 可用sql server的跟综器看了一下sql执行情况，竟然全部执行了sql语句. 晕