array-typ erforderlich (wie beheben?)

[inherited]

Klar, ai ist ja weiterhin Integer...
Probiers mal so:

Delphi-Quellcode:

var
i,ai:integer; s: String;

begin
  s:=IntToStr(ai);
  for i:=1 to length(s) do
  s[i]:=char(23 xor ord(s[i]));
end;