![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Код:
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; |