Ord() Funktion unter Android

[Stewag]

Bei der Portierung dieses Codes für eine einfache Verschlüsselung von Windows auf Android habe ich das Problem, dass unter Android ein komplett anderes Ergebnis geliefert wird.
Hängt das vielleicht damit zusammen, das Android eine andere Codepage verwendet?

Wie kann ich erreichen, das unter Android dasselbe Ergebnis wie unter Windows geliefert wird?

Code:

Inword := 'Android';

for i := 1 to length(Inword) do
    Outword := Outword + char(ord(Inword[i])-i);

showmessage(Outword)  // liefert "@lanjc]" unter Windows und "mbokd^_" unter Android

Ich setze Delphi 10.3 Community ein.

[jottkaerr]

Könnte es sein, dass die Indexierung von Strings unter Android bei 0 beginnt?

[Stewag]

... mmmh, du meinst so:

Code:

for i := 0 to length(Inword)-1 do
    Outword := Outword + char(ord(Inword[i])-i);

klappt aber leider auch nicht.

[jottkaerr]

Nein, wenn Du das so machst, dann subtrahierst Du am Ende eins zu wenig.

Also entweder

Code:

for i := 0 to length(Inword)-1 do
    Outword := Outword + char(ord(Inword[i])-i-1);

oder

Code:

for i := 1 to length(Inword) do
    Outword := Outword + char(ord(Inword[i-1])-i);

[Stewag]

Super - so klappt es!
Danke!

[skoschke]

Darauf bin ich auch schon reingefallen!

Als Android compiliert muss man ab 0 zählen, bei Windows ab 1.

Eigentlich ein Unding dass man einen Code ändern muss damit er bei Android funktioniert...

Fehler von Embarcadero?

Ciao
Stefan

[Rollo62]

Das ist 0-based bei den Mobilen.

Dafür gibt es aber eine Reihe handlicher Helper
MyString.Chars[0];
Mystring.Length;
MyString.SubString(0, len); // glaube ich ohne nachzulesen.
...
...


Die funktionieren mit 1 und 0 based strings.

[Dennis07]

Hier ein paar Tipps:

• Du kannst auch den String-Helper aus System.SysUtils nehmen. Der hat eine Chars[Index] property, die auch bei 0 beginnt.
• Low(MyString) gibt unter jeder Plattform immer den ersten verfügbaren Index des Strings zurück. High(MyString) immer das letzte, oder, bei leeren Strings, das erste minus 1.
• Anstatt eines direkten Casts von Integer nach Char , solltest du die intrinsische Chr(MyOrdinal) -Funktion verwenden. Genau so, wie du ja auch nicht den Char nach Integer castest, sondern schön brav Ord(MyChar) verwendest.

[TurboMagic]

Man kann die 0-Indizierung auch per define abstellen, funktioniert nur leider nicht für die Helper:

{$ZEROBASEDSTRINGS OFF}

[Dennis07]

Edit: Ups, verlesen