Раздваивание строки в StringList (Delphi 7)

[alxd]

Добавляю в StringList строку 'gfhjkm123' зашифрованную через XOR, сохраняю StringList в файл, смотрю результат - в файле получилось две строки. Почему? Как этого избежать?

Р.S. программка прилагается

[Stilet]

А наверное потому что в строке появляется символ #13 после шифрования.
Я бы просто подобрал другой ключ.

[alxd]

Сделал ключ проще (145) теперь, если читать из файла, то получается что записали туда только 'gfhjkm' вместо 'gfhjkm123'.
Может есть другой способ?

Пишу вот так

TestList.Add('НачалоСтроки~&~' + Crypt('gfhjkm123') + '~&~КонецСтроки');
TestList.SaveToFile(Dir + '\List.txt');

При чтении

TestList.LoadFromFile(Dir + '\List.txt');
Label1.Caption := TestList.Strings[0];

TestList.Strings[0] оказывается 'НачалоСтроки~~61', а окончание куда-то пропало.

Помогите разобраться, плз

[SuperVisor]

А чем Вас не устраивает первый вариант?
Ни в коем случае не загружайте файл обратно в StringList!!!
StringList потому и String - он расчитан на работу со строками, а у вас уже идет уровень выходящий за рамки печатных символов.

[alxd]

Сообщение от SuperVisor

А чем Вас не устраивает первый вариант?
Ни в коем случае не загружайте файл обратно в StringList!!!

Первый вариант не устраивает тем, что получается в файле две строки вместо одной.
Почему не загружать обратно? Как не загружать обратно? У меня ведь все программа на этом построена

[SuperVisor]

Сообщение от alxd

Первый вариант не устраивает тем, что получается в файле две строки вместо одной.
Почему не загружать обратно? Как не загружать обратно? У меня ведь все программа на этом построена

А Вы что, криптованый текст в блокноте читать хотите??
Обратно загружайте куда угодно, только не в потомки класса TStrings - и не будет у вас второй строки...

[Пепел Феникса]

используйте хоть теже потоки(TStream)

[alxd]

Сообщение от Пепел Феникса

используйте хоть теже потоки(TStream)

Примерчик можно?

[SERG1980]

function CriptXor(InputStr,Key:String):String;
 var i,a:integer;
     xb:byte;
 begin
  Result:='';
  a:=1;
 xb:=ord(inputstr[a]);
 while a<=length(inputstr) do
 begin
  for i:=1 to Length(key) do
  begin
   xb:=xb xor ord(key[i]);
   Result:=Result+chr(xb);
   inc(a);
   if a<=Length(inputstr) then xb:=ord(inputstr[a]) else exit;
  end;
 end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var i,a,j:integer;
    xb:byte;
    inputstr,key:string;
    sl:tstringlist;
begin
 sl:=tstringlist.Create;
 sl.Add(CriptXor('gfhjkm123','Qwe45Jk~1'));
 sl.SaveToFile('d:\1.txt');
 sl.Free;
end;