[NumLock]

Сообщение от Ildar-tsr

Ребят, а что вы тут за дискуссию развернули???

потому что:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  a, b, c: Double;
begin
  a:=212.053;
  b:=212.049;
  c:=a-b;
  c := round(c * 100 + 0.5) / 100;
  showmessage(floattostr(c));
end;

будет равно 0,01 а не 0,004