...
Tipp: Bau dir für IXMLNode einen Record-Helper, welcher ein .AsFloat-Property hat und wo intern in beiden Richtungen gleich gearbeitet wird....
Da wir gerade InHouse genau dieses Problem auch haben, hatte ich überlegt diesen Record-Helper zu bauen.
Aber ein Record-Helper geht scheinbar für Interfaces nicht. TXmlNode macht auch keinen Sinn.
Hat da jemand noch einen Trick. Ich komme gerade nicht drauf.
Nur mal so als Grundidee:
Delphi-Quellcode:
unit XmlHelper;
interface
uses
System.SysUtils,
Xml.XMLDoc;
type
XmlNodeHelper =
record helper
for IXmlNode
Function AsFloat() : Extended;
end;
var
XmlFormatSetting : TFormatSettings;
implementation
{ XmlNodeHelper }
Function XmlNodeHelper.AsFloat() : Extended;
var
sValue :
String;
begin
sValue := Self.Text;
// <- Einfach nur zu Debugging-Zwecken in extra Variable
Result := StrToFloatDef(sValue, 0, XmlFormatSetting);
end;
initialization
XmlFormatSetting := TFormatSettings.Create('
en-US');
end.
Liebe Grüße
Incocnito