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.