一个字符串加密的问题，很简单

[xzm2000]

这是我写的一段字符串加密程序，没有通过编译，请高手帮我改一下，另外看看实现逻辑有没有错误，可以实现加密吗？程序安全吗？我第一次使用指针

var
a: array of char;
c: char;
t: string;
i: integer;
begin
t := edit1.text;
setlength(a, length(t));
a := @t;
for i := 0 to length(t) - 1 do
begin
c := a[i] xor '1'; //这里通不过
edit1.text := edit1.text + c;
end;
end;

[kuangning]

同意楼上

[cobi]

同意楼上两位

[xzm2000]

用了上面的方法
编译可以通过，但是运行出错了

[dyny]

c:=a[i] xor '1'?
c:=Chr(ord(a[i]) xor ord('1'))

[truezerg]

c := a[i] xor '1'; //这里通不过

这里 1 不能为字符串类型!

[xzm2000]

up