Variant-Umwandlung in Single ergibt Integer?!

[JamesTKirk]

Sers mitnand!

Ich habe das interessante Problem, dass ein Variant (Inhalt: 0.75 Typ: varOleStr) aus einer XML-Datei, der in einen Single umgewandelt werden soll, in einen Integer mit dem Wert 75 umgewandelt wird.


Der Code sieht (gekürzt ) so aus:

Delphi-Quellcode:

var
  Vector:TD3DXVector3 //Ein Record mit den Single-Elementen x,y und z
  Attrib:Variant;
  DS:Char;
begin
  DS:=DecimalSeparator;
  DecimalSeparator:='.';
  //herausgeschnittenes, erfolgreiches Auslesen von 0.75 und Setzen von Attrib
  if not VarIsNull(Attrib) then
   Vector.x:=Attrib;
  //selbiges für Vector.y und Vector.z
  //und noch ein paar Überprüfungen
  DecimalSeparator:=DS;
end;

Wie man sieht ändere ich sogar den DecimalSeparator auf '.' um, doch das hilft auch nichts... auch VarAsType(Attrib,varSingle) bleibt ohne Erfolg... Des sollte doch bei einem Variant möglich sein?!

Ich hoffe auf eine erlösende Antwort und wünsche eine gute Nacht
Sven

[marabu]

Guten Morgen Sven,

die Routinen zur Umwandlung von Varianten sind lokalisierte API Funktionen - sie verwenden die aktuellen locale settings des Systems, aber nicht die Einstellungen der Delphi Unit SysUtils. Bessere Chancen hast du mit Val():

Delphi-Quellcode:

function NativeStrToFloat(s: String): Extended;
var
  error: Integer;
begin
  Val(s, Result, error);
  if error > 0 then
    raise EConvertError.CreateFmt('invalid float format: %s', [s]);
end;

Getippt und nicht getestet.

Grüße vom marabu

[JamesTKirk]

Sers marabu!

Danke! Der Code hat wunderbar funktioniert!
Nur eine Frage: Muss man da auf den DecimalSeparator achten?!

MfG

[marabu]

Ja, musst man. Val() arbeitet grundsätzlich mit dem Punkt als Dezimalpunkt, weswegen ich im Beispiel die Vorsilbe Native verwendet habe. Sobald in deinem XML-Dokument lokalisierte Angaben stehen, sind andere Vorgehensweisen angebracht.

marabu

[JamesTKirk]

D.h. ich brauch mir keine Gedanken machen, da meine XML-Datei nur '.' verwenden wird
(Ich ärger mich in einem Modellformat doch nicht noch mit ',' rum... wo sin mer denn da

Aber vielleicht werd ich den Hinweis ja mal benötigen

MfG