Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.017 Beiträge
 
Delphi 12 Athens
 
#8

AW: Variant -> Float. FormatSettings steuerbar?

  Alt 4. Mär 2015, 13:16
Früher war es mal System.VariantManager.VarToReal, aber die Deklaration gibt es zwar nocht, allerdings machen sie absolut garnichts. (nichtmal eine Fehlermeldung)
Delphi-Quellcode:
procedure GetVariantManager(var VarMgr: TVariantManager);
begin
  FillChar(VarMgr, sizeof(VarMgr), 0);
end;

procedure SetVariantManager(const VarMgr: TVariantManager);
begin
end;

function IsVariantManagerSet: Boolean;
begin
  Result := False;
end;
Nun ist es in VarUtils.VarR8FromStr zu finden und das wird mit VAR_LOCALE_USER_DEFAULT (aka LOCALE_USER_DEFAULT) aufgerufen. (wäre zu schön, wenn Variant immer mit der selben Sprache arbeiten würde ... überall)

Geht also doch nicht mehr auf FormatSettings zurück.
Somit müsste man also statt FormatSettings für den Prozess die Lokalisierung ändern. (Delphi aktualisiert das FormatSettings dann entsprechend)


Oder du änderst in VarUtils die entsprechenden Übersetungsfunktionen. (musste auch erstmal suchen, wo das jetzt liegt, da man dem deprecated natürlich keinen Hinweistext mitgegeben hat. )
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 4. Mär 2015 um 13:20 Uhr)
  Mit Zitat antworten Zitat