Что-то с программой

[misher]

Пишу мелкую программу, суть такова в = пишешь сколько вышло и снизу на кнопку проверить. При таком примере и не только при таком(0.10*0.2=0.02) когда нажимаю на кнопку пишет ошибку('0.10' is not a valid floating point value(перевод: не действительное значение с плавающей запятой)) что это означает?
И как на форум выложить исходник этой программы?
А так вот код:

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;

type
TForm4 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
function fmultiply(f , s , a : real): Boolean;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

{ TForm4 }

function TForm4.fmultiply(f, s, a: real): Boolean;
begin
if f * s = a
then result := true
else result := false;
end;


procedure TForm4.Button1Click(Sender: TObject);
begin
if fmultiply(StrToFloat(Edit1.Text) , StrToFloat(Edit2.Text) , StrToFloat(Edit3.Text))
then ShowMessage('Правильно')
else ShowMessage('Неправильно');
end;

end.

[Sparkman]

вместо точки поставьте запятую при вводе в Edit

[Serge_Bliznykov]

попробуйте задать десятичный разделитель (по всей видимости в той Windows, где Вы работаете, десятичный разделитель задан запятой)
для этого двойной щелчёк в Delphi по Вашей форме.
и на событии onCreate вставьте присвоение десятичного разделителя точки.

procedure TForm1.FormCreate(Sender: TObject);
begin
    DecimalSeparator  := '.';
end;

в этом случае программа не будет зависеть от локальных настроек операционной системы.


и ещё.
Вещественные числа нельзя сравнивать так, как это делает Вы!
ОЧЕНЬ рекомендую Вам ознакомится со статьёй
Неочевидные особенности вещественных чисел (с) Григорьев Антон

Почему это так важно? Вот Вам пример из книги (попробуйте понять, что происходит и почему это не работает):

var R:Real; //или Double или Single
begin
  R:=0.1;
  if R=0.1 then
   Label1.Caption:='Равно'
  else
   Label1.Caption:='Не равно'
end;

[Sparkman]

Или на событие (Events) Edit1 <OnKeyPress> Пропишите

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if (Key=',')or(Key='.')then Key:=DecimalSeparator;
end;

[baster128]

убери 0 сзади и вместо очки запятую поставь

[misher]

убери 0 сзади

Точнее где 0?

Всем спасибо, вот только пишет неправильно(какой бы пример не написал)!

[Hacker19_90]

Ну это смотря что вводить!!!

[W0LF]

Попробуй так:

function TForm4.fmultiply(f, s, a: currency): Boolean;
begin
if f * s = a
then result := true
else result := false;
end;

Не знаю чего, но у меня тоже "Неправильно" говорило... а с currency сработало

[Sanprof]

здесь почитайте о вещественных числах http://www.delphikingdom.ru/asp/view...?catalogid=374

[misher]

Ну это смотря что вводить!!!

непонял???