Desatinné čísla nie je vždy vhodne porovnávať pomocou znamienk rovná sa.

procedure TForm1.Button1Click(Sender: TObject);
var
  f1, f2 : double;
begin
  f1 := 1.3000000;
  f2 := 1.2999999;
  if abs(f1-f2) < 0.00001
  then ShowMessage('f1 and f2 are equal')
  else ShowMessage('f1 and f2 are not equal');
end;
Tento článok pridal igo dňa 3.04.2002 o 00:00. Je zaradený v kategóriách Delphi a má priradené tagy , . Ak chcete, môžete reagovať na tento článok. Sledovať reakcie na tento článok môžete aj pomocou RSS 2.0.