Umstellung D7 -> XE4

[Thomas Feichtner]

Hallo ich möchte gerne unser Projekt von D7 auf XE4 bringen.
Jedoch scheitere ich schon beim Installieren von einigen Komponenten bzw. von Funktionen die diese beinhalten.

Delphi-Quellcode:

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

folgende Meldung bekomme ich:


Die Unit SysUtils wäre definiert.

Und warum bekomme ich diese Meldung:
Implizite String-Umwandlung mit potenziellem Datenverlust von...
Welcher Teil ist String und welcher ShortString?


Ich seh derzeit den Wald vor lauter Bäume nicht...

[Thomas Feichtner]

1. Fehler habe ich selbe gefunden
Es muss FormatSettings.ThousandSeparator lauten

[RWarnecke]

Hallo,

beim DecimalSeperator sollte das gleiche Problem sein, wie beim ThousandSeparator. Für die anderen Fehler wäre es hilfreich zu wissen, welche Zeile es ist aus Deinem Codeschnipsel.

[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).