Variant -> Float. FormatSettings steuerbar?

[himitsu]

Variant und ToString nimmt die globalen Einstellungen (SysUtils.FormatSettings).

• entweder global das Setting umstellen
• den VariantManager umbauen und eigene Converter einbauen (auch global, aber nur für Variants)
• die Umwandlung Variant <> Float selber vornehmen (FloatToVar/VarToFloat)
• oder nicht Variant verwenden

[Der schöne Günther]

Mann, alleine da brauche ich schon Hilfe

Das einfachste: Die globale Variable FormatSettings umstellen. So richtig?

Delphi-Quellcode:

procedure funWithVariants2();
var
   myVariant:   OleVariant;
   myFloat:   Single;
begin
   FormatSettings.DecimalSeparator := '.';
   //FormatSettings := TFormatSettings.Create(LOCALE_INVARIANT); // Auch nicht besser

   myVariant := '3.14';
   myFloat := myVariant;
   WriteLn( myFloat.ToString() ); // Ergibt 314
end;

Ergibt immer noch 314


Du hast im oben verlinkten Thema schon einmal davon gesprochen, global das implizite Casten von Varianten anpassen zu können. Ich habe so etwas noch nie gesehen, hast du ein Beispiel?