|
Registriert seit: 2. Jul 2007
Ort: Tuttlingen
81 Beiträge
Delphi 10.1 Berlin Professional
|
AW: Ord() Funktion unter Android
10. Mai 2019, 13:53
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);
Jürgen Krämer
Sometimes I think the surest sign that intelligent life exists elsewhere
in the universe is that none of it has tried to contact us. (Calvin)
|