相关疑难解决方法(0)

我有这个基本代码,应该编码一个字符串,然后将其取回.但是,解码后的文本是垃圾.

procedure TForm5.Button2Click(Sender: TObject);
VAR s1, s2, s3: String;
    i: Integer;
begin
 for i:= 1 to 200
  DO s1:= s1+ char(Random(255));

 s1:= EncdDecd.EncodeString(s1);
 s3:= EncdDecd.DecodeString(s2);

 if s1= s3
 then Caption:= 'Equal'
 else Caption:= 'Not equal';
end;

更新:
如果我做char(Random(128))而不是255,它可以工作!