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.

zusammenfalten · markieren

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:
D7-XE4.jpg

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

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

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.

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

markieren

Delphi-Quellcode:

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

Zitat von Thomas Feichtner:

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

markieren

Delphi-Quellcode:

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

Hierzu gibts die neue Hilfsfunktion CharInSet.

Zitat von Thomas Feichtner:

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

markieren

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?

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?