Ки
Кирилл
Помогите дописать программу! срочняк
procedure TForm1.button1Click(Sender: TObject);
var
v,t,s:Double;
begin
v:=StrToFloat(edit1.text);
t:=StrToFloat(edit2.text);
s:=v*t;
edit3.Text:=FloatToStr(s);
DecimalSeparator :='.';
DecimalSeparator :=',';
end;
end.
Когда второй раз пишу любое раздельное число через кому (3,5) дает ошибку "3,6 is not valid floating point value". С точкой ошибку не дает.