Unsichere Typumwandlung bei TFormatSettings

[Gollum]

Hallo,

seit neuestem warnt mich der Compiler vor einer unsicheren Typumwandlung, wenn ich FormatSettings benutze.


Beispiel:

Delphi-Quellcode:

function GetMonatText(aMonat:Integer; short:Bool=False):String;
begin
  if short then Result:=FormatSettings.ShortMonthNames[aMonat]
    else Result:=FormatSettings.LongMonthNames[aMonat];
end;

Warnhinweis:
[DCC Warnung] uDatumLight.pas(492): W1048 Unsichere Typumwandlung von 'string' nach 'TFormatSettings'


Wenn ich folgendes mache, kommt keine Warnung!?

Delphi-Quellcode:

function GetMonatText(aMonat:Integer; short:Bool=False):String;
var fms:TFormatSettings;
begin
  fms:=TFormatSettings.Create;
  if short then Result:=fms.ShortMonthNames[aMonat]
    else Result:=fms.LongMonthNames[aMonat];
end;

Das kann doch sicher nicht die Lösung des Problems sein.
Was läuft da schief?

[s.h.a.r.k]

Bist du sicher, dass der Warnhinweis bei diesem Code hier kommt?

Delphi-Quellcode:

function GetMonatText(aMonat:Integer; short:Bool=False):String;
begin
  if short then Result:=FormatSettings.ShortMonthNames[aMonat]
    else Result:=FormatSettings.LongMonthNames[aMonat];
end;

Da wird doch nichts an FormatSettings zugewiesen, sondern nur gelesen...

[Gollum]

Zitat:

Bist du sicher, dass der Warnhinweis bei diesem Code hier kommt?

Zu 100%. Nicht nur an dieser Stelle, sondern an allen Stellen, an denen ich Formatsettings benutze.

[s.h.a.r.k]

Hm, also bei mir klappt es. Habe es gerade mal bei mir getestet (auch XE2) und alles passt.

Erzeugst du irgendwo neue Instanzen von TFormatSettings? Hast du irgendwo eine Variable namens FormatSettings vom Typ string? Seltsam ists schon..

[Gollum]

Zitat:

Erzeugst du irgendwo neue Instanzen von TFormatSettings? Hast du irgendwo eine Variable namens FormatSettings vom Typ string? Seltsam ists schon..

Das dieses Verhalten seltsam ist, da gebe ich Dir Recht.
Und nein, ich erzeuge keine Extrainstanz von Formatsettings und auch keine Varable oder ähnliches.
Warum sollte ich auch?

[Furtbichler]

Poste mal dein Beispielprojekt, bitte.

[Gollum]

Zitat von Furtbichler:

Poste mal dein Beispielprojekt, bitte.

Geht leider nicht. Zum Einen ist das Projekt zu komplex (incl. Datenbankanbindung) und zum Anderen hat mein Arbeitgeber etwas dagegen.

[himitsu]

Wenn man sich anguckt, wie die globale "Instanz" dieses Records deklariert ist...
Eigentlich sollte es nicht, aber da kann der Compilier schonmal durcheinander kommen.

Zum Glück ist es bei dir nur eine Warnung, denn eigentlich würde soeine Zuweisung, von derartig inkompatiblen Typen, in einem Error enden und den Kompilierungsvorgang abbrechen.

Hier (XE2 ohne Updates) wird aber auch nicht gemeckert.

[s.h.a.r.k]

Zitat von Gollum:

Zitat von Furtbichler:

Poste mal dein Beispielprojekt, bitte.

Geht leider nicht. Zum Einen ist das Projekt zu komplex (incl. Datenbankanbindung) und zum Anderen hat mein Arbeitgeber etwas dagegen.

Kannst du dann wenigstens alle relevanten Stellen posten, die mit FormatSettings zu tun haben!?

[Gollum]

Hallo,

kann ich, bringt aber warscheinlich nichts.

Hier mal einige Auszüge:

Delphi-Quellcode:

  if CharInSet(Text[i], ['0'..'9', '-', '+', FormatSettings.DecimalSeparator]) then
  ...
  ...
  if short then Result:=FormatSettings.ShortDayNames[aTag]
    else Result:=FormatSettings.LongDayNames[aTag]
  ...
  ...
  for i:=1 to 12 do cbbMonat.Items.Add(FormatSettings.LongMonthNames[i]);

Das komische an der Sache ist, dass in einem anderen Projekt, dass auch auf (gemeinsame) Dateien dieses Projektes zugreift, die Warnung nicht erscheint.