아래와 같이 실수를 S1 = S2 형태로 비교하면 같은 숫자인데도 같지 않다고 계산됩니다.

SameValue 등의 함수를 이용하면 같다고 계산됩니다.

uses
  System.Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  S1, S2: Single;
begin
  S1 := 0.3;
  S2 := 0.1;
  S2 := S2 / 10.0;      // should be 0.01
  S2 := S2 * 10.0;      // should be 0.1 again
  S2 := S2 + S2 + S2;   // should be 0.3

  if S1 = S2 then
    ShowMessage('True')
  else
    ShowMessage('False');

  if SameValue(S1, S2) then
    ShowMessage('True')
  else
    ShowMessage('False');
end;
 

부동소수점 숫자에 대해 잘 소개한 글(영문)이 있어 안내합니다.

http://rvelthuis.de/articles/articles-floats.html