[SpectraL]

Код:

procedure TForm1.FormCreate(Sender: TObject);
  var
    a, b, c: Extended;
begin
  a := 212.53;
  b := 212.49;
  c := a - b;

  if c = 0.04 then
    ShowMessage(FloatToStr(c))
end;

Переменная 'c' не равна 0.04. Как можно увидеть её значение?

[NumLock]

9-ую строчку заменить на

Код:

if Abs(c-0.04)<0.00000001 then

почему так надо уже много раз писали.

[SpectraL]

Я имею ввиду как увидеть истинное значение переменной 'с'. Например, в виде 0.039999999999999993895990990009 или двоичного кода.

[NumLock]

Код:

ShowMessage(FloatToStrF(c, ffGeneral, 100, 100));

[SpectraL]

Спасибо, это более точное значение, но не истинное.

[lmikle]

Ну, если тебе бинарное, то как-то так:

Код:

var
  E : ^Extended;
  I : ^Byte;
begin
  E^ := 123.4567890;
  I := ^Byte(E);
  For I := 0 To 9 Do
    Begin
      Writeln(IntToStr(I));
      I := I+1;
    End;

Двоичный код уж сам как-нить "выдерешь".