次の式を実行しようとしていますが、「'chars'のプロパティセッターが見つかりません」という例外が発生し続けます。
式は次のとおりです。
xstr, str : string;
for i := 1 to length(str) do
begin
if ((i mod 2)<>0) then
begin
xstr[i] := char(Ord(str[i]) xor $AA); <<<<------ Exception Raised
end
else
begin
xstr[i] := char(Ord(str[i]) xor $55); <<<<------ Exception Raised
end;
end;
「str」の値は暗号化方式に渡されます。
これは暗号化方式の一部です。これを行うための最良の方法は何ですか?