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!
:-D

[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
  Delphi-Quellcode:

  System.SysUtils

  nehmen. Der hat eine
  Delphi-Quellcode:

  Chars[Index]

  property, die auch bei
  Delphi-Quellcode:

  0

  beginnt.
• Delphi-Quellcode:

  Low(MyString)

  gibt unter jeder Plattform immer den ersten verfügbaren Index des Strings zurück.
  Delphi-Quellcode:

  High(MyString)

  immer das letzte, oder, bei leeren Strings, das erste minus 1.
• Anstatt eines direkten Casts von
  Delphi-Quellcode:

  Integer

  nach
  Delphi-Quellcode:

  Char

  , solltest du die intrinsische
  Delphi-Quellcode:

  Chr(MyOrdinal)

  -Funktion verwenden. Genau so, wie du ja auch nicht den
  Delphi-Quellcode:

  Char

  nach
  Delphi-Quellcode:

  Integer

  castest, sondern schön brav
  Delphi-Quellcode:

  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