DELPHI AREA Forum

Hi to All,

Is there a known problem in trying to encrypt/Decrypt an RTF file?
I'm only using a low security encryption and it works Ok but it is removing any special font attributes that have been set and displaying results as Plaintext even though plaintext is set to false.


Thanks

Blod

S := rtf1.Text;
For I:= 1 to Length(S) do
S[I] := Chr(Ord(S[I]) xor $ff);
rtf1.Text := S;
rtf1.Lines.SaveToFile('hold.txt');
end;

hi thanks for the information

Er, you're Welcome.