Firemonkey TUpper funktioniert nicht mit 'ß'!

[Koloss]

Es kommt eine exception!

Sogar wen ich ein Tabcontrol mit einen Tabitem auf das Formular lege und auf die Eigenschaft Text 'ß' rauf schreibe und starte passiert es!
Da dort intern ein ToUpper ausgeführt wird(warum das Android so macht weis ich nicht), kann man auch debuggen. Da sieht man das Toupper das Problem auslöst.

Meine Strings kommen von einer DB, da habe ich wenig Einfluss was der User reinschreibt. Ein 'ß' zu verbieten wäre nicht die Lösung.

[greenmile]

Füge am Anfang Deiner Unit die Funktionen hinzu:

Code:

function LowerCase(const S: string): string;
begin
  Result := System.SysUtils.AnsiLowerCase(S);
end;

function UpperCase(const S: string): string;
begin
  Result := System.SysUtils.AnsiUpperCase(S);
end;

[Koloss]

Zitat von greenmile:

Füge am Anfang Deiner Unit die Funktionen hinzu:

Code:

function LowerCase(const S: string): string;
begin
  Result := System.SysUtils.AnsiLowerCase(S);
end;

function UpperCase(const S: string): string;
begin
  Result := System.SysUtils.AnsiUpperCase(S);
end;

Danke aber es passiert auch intern beim TabItem vom TabControl, weil Android das automatisch groß darstellt.

Fehler passiert in System.SysUtils

Code:

function TStringHelper.ToUpper(LocaleID: TLocaleID): string;
{$IF defined(MSWINDOWS)}
begin
  Result := Self;
  if Result <> '' then
  begin
    UniqueString(Result);

    if LCMapString(LocaleID, LCMAP_UPPERCASE or LCMAP_LINGUISTIC_CASING, PChar(Self), Self.Length,
       PChar(Result), Result.Length) = 0 then
      RaiseLastOSError;
  end;
end;
{$ELSEIF defined(USE_LIBICU)}
var
  SelfLen: Integer;
  ResLen: Integer;
  ErrorCode: UErrorCode;
begin
  SelfLen := Self.Length;
  if SelfLen > 0 then
  begin
    ErrorCode := U_ZERO_ERROR;
    SetLength(Result, SelfLen);
    ResLen := u_strToUpper(PChar(Result), SelfLen, PChar(Self), SelfLen, LocaleID, ErrorCode);
    if (ErrorCode > U_ZERO_ERROR) then
    begin
      SetLength(Result, ResLen);
      ResLen := u_strToUpper(PChar(Result), ResLen, PChar(Self), SelfLen, LocaleID, ErrorCode); // hier bleibt er stehen
      if (ErrorCode > U_ZERO_ERROR) then
        raise EOverflow.CreateFmt(SICUErrorOverflow, [Int32(ErrorCode), UTF8ToString(u_errorName(ErrorCode)), ResLen]); // Meldung
    end;
  end
  else Result := Self;
end;

[mjustin]

Ist die ICU Bibliothek Bestandteil des Betriebssystems / wird es von Delphi mit auf das Gerät kopiert? (Und ist es dies aktuellste Version des Emulators?)

[Koloss]

Keine Ahnung! Es funktioniert aber auch auf einen Samsung S2 Handy mit Android 4.1.2 nicht.

[TiGü]

Zitat von Koloss:

Es kommt eine exception!

Was denn für eine?
Meinst du nicht, dass es elementar wichtig wäre das zu wissen, um dir weiterhelfen zu können?

Übrigens, unter Windows und XE3 kommt korrekt wieder 'ß' zurück.

[Koloss]

Auch unter XE6 und Windows-Firemonkey funktioniert es, nur nicht unter Android! iOS nicht getestet.

Exception EOverflow mit der Meldung ICU-Überlauffehler: 12, U_BUFFER_OVERFLOW_ERROR, Erforderliche Länge = 0

[Bernhard Geyer]

Ruft hier evtl. der Delphi-Code einfach eine entsprechende API-Funktion von Android die sich hier einfach fehlerhaft verhält?

[mjustin]

U_BUFFER_OVERFLOW_ERROR with "ß"

könnte passen ...