请教一个文件和字符串的问题

Question

请教一下，怎样才能把录入文本框的内容加密后存储进文件，还有怎样才能解密后读出？

Answer 1

简单加密很容易，随便编个密钥XOR，解密再XOR回来。
其他加密方法，也很容易搜到源码

Answer 2

procedure SaveStrToFile(const str, FileName: string);
var
  fp: TextFile;
begin
  AssignFile(fp, FileName);  if FileExists(FileName) then
    Append(fp)
  else
    Rewrite(fp);
  Write(fp, str+#13#10);  //WriteLn(fp, str);
  CloseFile(fp);
end;