Как заменять ',' на '.' ?

[kta87]

в edit вводится дробное число 1,5 либо 1.5 , но '1,5' это не корректно! Как заменять в таком случае ',' на '.' ?

[maLoy*508]

на OnKeyPress повесь:

if key = #46 then key := #44;

то есть, проверяем, если ascii код равен коду запятой, то меняем его на ascii код точки...

[kta87]

Оке Спасибо!

[Alex Cones]

Меняйте

DecimalSeparator

[sensh27]

Если использовать код:

DecimalSeparator:='.';

тогда у вас не будет работать ',' а только '.' поэтому лутше использовать этот код:

for I:=1 to length(s) do
if st[i]='.' then st[i]:=',';