Zahlenwerte in XML (Decimalseparator)

[Der schöne Günther]

Ganz bewusst buddele ich das Thema von 2009 wieder aus. Ich bin hilflos. Ich finde noch nicht mal einen QC-Eintrag. Im Emba-Forum ein Thema aus 2012.

Gab es genau die selbe Geschichte nicht neulich nochmal mit JSON? Ich bin immer noch ratlos, was ich jetzt tun muss, damit Kommazahlen als "3.14" und nicht "3,14" in meinem XML landen.

Zusammenfassung:
IXMLDocument::NodeValue nimmt ein OleVariant entgegen welches im Falle einer Kommazahl direkt mit den globalen FormatSettings umgewandelt wird. Ich finde keine Möglichkeit, ein eigenes TFormatSettings -Objekt irgendwo reinzustecken.

Ich kann also nur die globalen FormatSettings anpassen? Gibt es irgendwo einen Bug-Report? Es kann doch nicht sein, dass hier ungültiges XML rauskommt

[himitsu]

Im Prinzip müsste die Umwandlung dort explizit ein englischsprachisches FormatSettings benutzen.

Oder du wandelst die Zahl selber um. (FloatToStr + eigenes FormatSettings)

[Der schöne Günther]

Müsste, ja. Tut sie aber nicht

Mal sehen, was sich mit einem Helper da bessern lässt. Ach warte, geht ja nicht für Interfaces (IXMLNode).

Ja, heute ist Stinkstiefel-Tag

[Sir Rufo]

Eben weil IXMLNode.NodeValue ein OleVariant ist, nehme ich das Lesen (!) und Schreiben lieber selber in die Hand. Denn dort kann ja eben alles stehen.

Also warum nicht so wie bei TCustomIniFile

Delphi-Quellcode:

TNodeValueHandler = class
  private
    FFormat : TFormatSettings;
  public
    procedure WriteString( Node : IXMLNode; const Value : string );
    procedure WriteFloat( Node : IXMLNode; const Value : Extended );
    ...
    function ReadString( Node : IXMLNode; const Default : string ) : string;
    function ReadFloat( Node : IXMLNode; const Default : Extended ) : Extended;
    ...
   end;

procedure TNodeValueHandler.WriteString( Node : IXMLNode; const Value : string );
begin
  Node.NodeValue := Value;
end;

procedure TNodeValueHandler.WriteFloat( Node : IXMLNode; const Value : Extended );
begin
  WriteString( Node, FloatToStr( Value, FFormat ) );
end;

function TNodeValueHandler.ReadString( Node : IXMLNode; const Default : string ) : string;
begin
  Result := VarToStrDef( Node.NodeValue, Default );
end;

function TNodeValueHandler.ReadFloat( Node : IXMLNode; const Default : Extended ) : Extended;
begin
  Result := StrToFloatDef( ReadString( Node, '' ), Default );
end;

[Der schöne Günther]

Ich habe durch Zufall
Soap.XSBuiltIns.SoapFloatToStr(Value: double): string; gefunden. In der Unit gibt es noch mehr, wie beispielsweise auch XML-konforme Umwandlung von und in TDateTime

Bei der Gelegenheit auch gleich einen Kreuzpfosten in Embarcaderos neuem Forum aufgemacht. Ich finde, das sollte nicht nötig sein. Wenn man sich den Code von TXMLNode.SetNodeValue ansieht, konvertieren die sogar ein "True" nach "true" damit es XML-conform ist. Aber Kommazahlen haben die irgendwie vergessen...

[Dejan Vu]

Hab mir deinen Kreuzpfosten angeschaut: Das XML ist aber valide.

Code:

<rootNode>
  <invalidContent>3,14159265358979</invalidContent>
</rootNode>

Nur die *Intention* ist ja eine andere, nämlich die: Du hast ein Schema und willst die Delphi XML-Datenbindung verwenden.

Code:

<xs:schema attributeFormDefault="unqualified" elementFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema">
  <xs:element name="rootNode">
    <xs:complexType>
      <xs:sequence>
        <xs:element type="xs:float" name="invalidContent"/> 
      </xs:sequence>
    </xs:complexType>
  </xs:element>
</xs:schema>

Delphi-Quellcode:

Der Delphi-Code dazu:
IXMLRootNode = interface(IXMLNode)
    ['{323E65B5-3A1C-4937-8413-91430DC19316}']
    { Property Accessors }
    function Get_InvalidContent: Single; 
    procedure Set_InvalidContent(Value: Single) 
    { Methods & Properties }
    property InvalidContent: Single read Get_InvalidContent write Set_InvalidContent; 
  end;

{ Forward Decls }

  TXMLRootNode = class;

{ TXMLRootNode }

  TXMLRootNode = class(TXMLNode, IXMLRootNode)
  protected
    { IXMLRootNode }
    function Get_InvalidContent: Single; 
    procedure Set_InvalidContent(Value: Single); 
  end;

Und wenn Du nun ausführst:

Delphi-Quellcode:

var
  node : IXMLRootNode;

begin
  node := NewrootNode; 
  node.InvalidContent := Pi;
  memo1.Lines.text := node.XML;
end;

Hast Du -et voilá- ein XML, was nicht gegen das Schema validiert werden kann. Und *DAS* ist ein Bug.

Das geht natürlich auch mit Datumse. Is ja klar.

[Der schöne Günther]

Ja, "XML not valid" ist falsch ausgedrückt. Es ist immer noch well formed, aber nicht mehr gegen ein Schema validierbar was hier einen Float erwartet.

Ich ändere das wohl noch, nicht dass mich da jemand falsch verstehen will