aceitar digitação de ponto em números, independente das configurações

Aceitar digitação de ponto em números, independente das configurações do Windows


function StrToFloatF(e:String):Double;
var
p:Integer;
begin
while true do begin
p:=Pos(ThousandSeparator,e);
if p<=0 then
break
Else
Delete(e,p,1);
End;

result:=StrToFloat(e);
End;


By
Nativo_Gyn
ufgnet@pop.com.br