[AlexandrV]

Вот сделал пример кода

Код:

Const EX:Extended=0.3;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:=FloatToStr(ex);
end;

Но в итоге мы получаем строку 0,3 а надо получить 0.3 как сделать такую функцию