Umstellung D7 -> XE4

[Thomas Feichtner]

Die Warnung
Implizite String-Umwandlung mit potenziellem Datenverlust von ..
bekomme ich in dieser Zeile:

Delphi-Quellcode:

 
end else if Value[I] = [ThousandSeparator] then begin

[Bernhard Geyer]

Zitat von Thomas Feichtner:

Die Warnung
Implizite String-Umwandlung mit potenziellem Datenverlust von ..
bekomme ich in dieser Zeile:

Delphi-Quellcode:

 
end else if Value[I] = [ThousandSeparator] then begin

Hierzu gibts die neue Hilfsfunktion CharInSet.

[Uwe Raabe]

Zitat von Thomas Feichtner:

Die Warnung
Implizite String-Umwandlung mit potenziellem Datenverlust von ..
bekomme ich in dieser Zeile:

Delphi-Quellcode:

 
end else if Value[I] = [ThousandSeparator] then begin

Was willst du denn mit den eckigen Klammern erreichen? Das sollt doch eigentlich ein Vergleich zweier Char sein und nicht eines Char mit einem Set, oder?

[Thomas Feichtner]

Zitat von Uwe Raabe:

Was willst du denn mit den eckigen Klammern erreichen? Das sollt doch eigentlich ein Vergleich zweier Char sein und nicht eines Char mit einem Set, oder?

Hallo Uwe,

da hast du schon recht. Ich habe den Source auch nur übernommen und versuche in auf XE4 zu hieven.
Die eckigen Klammern habe ich schon enfernt.

Aber warum bekomme ich diese Meldung?

[EgonHugeist]

function ScanNumber(Value, FormatChars: String; var I: Integer): Boolean;
begin
Result := True;
I := I + 1;
while (Result = True) and (I <= Length(Value)) do
if CharInSet(Value[I], ['0'..'9']) then
Inc(I)
else if Value[I] = FormatSettings.ThousandSeparator then
Inc(i)
else if (Pos(Value[I], FormatChars) <> 0) then
Inc(i)
else if Value[I] = FormatSettings.DecimalSeparator then
Result := ScanDecimal(Value, FormatChars, I)
else Result := False;
end;

[Der schöne Günther]

Wenn schon XE4, warum dann nicht die coolen intrinsischen Record-Helper?

Statt

if CharInSet(Value[I], ['0'..'9']) then einfach
if Value[i].isNumber() then ?


Ich liebe die Dinger.

CharInSet hat eine überladene Methode mit AnsiChars als Parameter, wahrscheinlich castet er nach AnsiChar runter weil es die erste Methode ist, die passt?

[Uwe Raabe]

Zitat von Thomas Feichtner:

Aber warum bekomme ich diese Meldung?

Da ein Set of Char wegen der Beschränkungen für Sets implizit ein Set of AnsiChar ist, wird für das Bilden des Sets aus ThousandSeparator zunächst eine Umwandlung durchgeführt. Danach stellt der Compiler dann fest, daß man ein Char nicht mit einem Set vergleichen kann (Inkompatible Typen).