String zu Byte-Array konvertieren und umgekehrt

[knaeuel]

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}

[himitsu]

Hatte ich zwar schon genannt und wenn man das dann auch noch alles umsetzt, dann kommt in etwa sowas bei raus

Delphi-Quellcode:

for i := Low(string) to High(input) do
begin
  if i mod 2 <> Low(string) then