procedure TestOther;
var
  doc: TNativeXml;
  node: TXmlNode;

  function IsOk(Value: Double): Boolean;
  begin
    node.ValueAsFloat := Value;
    if node.ValueAsFloat = Value then
    begin
      Result := True;
    end
    else
    begin
      Result := False;
    end;
  end;

begin
  doc := TNativeXml.Create(nil);
  node := doc.NodeNew('test');

  Assert(IsOk(0));
  Assert(IsOk(1));
  Assert(IsOk(12));
  Assert(IsOk(123));
  Assert(IsOk(1234));
  Assert(IsOk(12345));
  Assert(IsOk(123456));
  //Assert(IsOk(1234567)); // error
  //Assert(IsOk(12345678)); // error
  //Assert(IsOk(123456789)); // error

  Assert(IsOk(1.2));
  Assert(IsOk(1.23));
  Assert(IsOk(1.234));
  Assert(IsOk(1.2345));
  Assert(IsOk(1.23456));
  //Assert(IsOk(1.234567)); // error
  //Assert(IsOk(1.2345678)); // error
  //Assert(IsOk(1.23456789)); // error

  Assert(IsOk(1.2));
  Assert(IsOk(12.3));
  Assert(IsOk(123.4));
  Assert(IsOk(1234.5));
  Assert(IsOk(12345.6));
  //Assert(IsOk(123456.7)); // error
  //Assert(IsOk(1234567.8)); // error
  //Assert(IsOk(12345678.9)); // error

  doc.Free;
  node.Free;
end;