ich hab noch einen Fehler gefunden, der das Problem löst...
dieses Code-Fragment:
Delphi-Quellcode:
{$IFDEF MSWINDOWS}
for i:=1 to length(input) do
{$ELSE} //auf iOS und Android sind die Strings 0-basiert...
for i:=0 to length(input)-1 do
{$ENDIF}
begin
if i mod 2 = 0 then
sollte so aussehen:
Delphi-Quellcode:
{$IFDEF MSWINDOWS}
for i:=1 to length(input) do
begin
if i mod 2 = 0 then
{$ELSE} //auf iOS und Android sind die Strings 0-basiert...
for i:=0 to length(input)-1 do
begin
if (i+1) mod 2 = 0 then
{$ENDIF}