Шифрование + txt кодировка

[Roman324]

Всем привет. Столкнулся с проблемой, которую не получается решить.
Надеюсь на вашу помощь.

В общем, шифрую просто:

function CodeString(s:string;code:boolean):string;
const
   Pas=10;
var
  i,Delta,Res:integer;
begin
  Result:='';
  for i:=1 to Length(s) do
  begin
    Delta:=((i xor Pas) mod (256-32));
    if code then
      Res:=((ord(s[i])+Delta) mod (256-32))+32
    else
    begin
      Res:=ord(s[i])-Delta-32;
      if Res<32 then
        Res:=Res+256-32;
    end;
      Result:=Result+chr(Res);
  end;
end;

Дальше пытаюсь сохранить текст в txt файл, но вместо всего у меня просто знаки вопроса в блокноте.
Сохраняю так:

Goodlist:=TStringList.Create;
Goodlist.LoadFromFile(datamodule1.OpenDialogTXT.FileName);
 for I :=0 to goodlist.Count-1 do
  goodlist.Strings[i]:=CodeString(goodlist.Strings[i], true);

  goodlist.SaveToFile(datamodule1.OpenDialogTXT.FileName);

Спасибо

[Человек_Борща]

ВЫ - человек парадокса?
Сначала:

В общем, шифрую

А потом

но вместо всего у меня просто знаки вопроса в блокноте.

Ну что нашифровали то и получили =)

[Roman324]

Сообщение от Человек_Борща

ВЫ - человек парадокса?
Сначала:

А потом


Ну что нашифровали то и получили =)

Нет нет, в мемо выводится всё нормально. И расшифровывается всё гуд. А вот если сохранить в тхт, то с кодировкой проблемы.

[Человек_Борща]

При сохранении в TEncoding указывайте кодировку сохраняемого файла.

MyStringList.SaveToFile('',TEncoding.UTF8);

[Roman324]

Сообщение от Человек_Борща

При сохранении в TEncoding указывайте кодировку сохраняемого файла.

MyStringList.SaveToFile('',TEncoding.UTF8);

Благодарю