Это глюк или я чего-то не понимаю?
На форме имеется edit1, edit2, button1, button2;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if a>=393.7 then
edit2.Text:='>=393.7';
end;
заранее объявляем a:real
запускаем прогу, вводим в edit1 393,7 нажимаем по очереди Button1 и Button2 в edit2 ничего не появляется

немного изменим код:
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if a>=393.8 then
edit2.Text:='>=393.8';
end;

запускаем прогу, вводим в edit1 393,8 нажимаем по очереди Button1 и Button2 в edit2 появляется '393,8'

почему???
P.S.
замена на a:single с 393,7 работает а с 250,7 нет;
замена на a:extended проблему решает

Спасибо, теперь работает. А в чём причина такого смещения значения числа в памяти? Почему для одних чисел (393,7) смешение происходит, а для других (393,8) нет?

И ещё, почему если переменной a:real присвоить значение 393.7 , а затем проверить разницу (393.7-a) то получится 5,...E-18?
Ведь real должен округляться до E-324.