Changeset 16 for trunk/UCore.pas

Timestamp:

Mar 19, 2013, 9:43:12 PM (11 years ago)

Author:

chronos

Message:

• Opraveno: Načítání stavu účtu na českých Windows s desetinnou čárkou.
• Opraveno: Automatický výběr aktivního účtu.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -259 +259 @@
   Mem := TMemoryStream.Create;
   try
-    FioAPI.Format := DataFormat;
+    FioAPI.Format := dfXML;
     FioAPI.Token := Account.Token;
     Account.Time := Now;
@@ -276 +276 @@
       Node2 := Node.FindNode('closingBalance');
       if Assigned(Node2) then
-        Account.Balance := StrToFloat(Node2.TextContent);
+        Account.Balance := StrToFloat(StringReplace(Node2.TextContent, '.',
+          DefaultFormatSettings.DecimalSeparator, [rfReplaceAll]));
     end else begin
       Account.Number := '';