1 files changed, 7 insertions, 0 deletions
diff --git a/unit2.pas b/unit2.pas
index c88b14b..984a849 100644
--- a/unit2.pas
+++ b/unit2.pas
@@ -206,7 +206,14 @@ const
   fak: array[0..13] of extended = (1e3,1e6,1e9,1e12,1e15,1e18,1e-3,1e-6,1e-9,1e-12,1e-15,1e-18,1e-21,1e-24);
 var
   i: longint;
+  c: char;
 begin
+  if decimalseparator='.' then
+    c:=','
+  else
+    c:='.';
+  while pos(c,x)>0 do
+    x[pos(c,x)]:=decimalseparator;
   for i:=0 to length(edg)-1 do
     if pos(edg[i],x)>0 then begin
       add(strtofloat(trim(leftStr(x,pos(edg[i],x)-1)))*fak[i],cnt);