stringgrid,stringlist

[novo]

Добрый день (ночь,вечер,утро)

Проблема такая
Необходимо зашифровать содержимое stringlist, предварительно заполненного из stringgrid
Делал так:

Код: Выделить всё

var
list:TStringList;
i,j:integer;
begin
list:=Tstringlist.Create;
 for i:=1 to stringgrid1.RowCount-1 do begin
for j:=1 to stringgrid1.ColCount-1 do begin
 list.add(stringgrid1.Cells[j,i]); 
 end;
end;
list.text:=encrypt(list.text,'password');
list.savetofile('file.txt');
list.free;

В принципе работает, но через раз, при дешифровке последние две строки остаются не расшифрованными
Вычитал тут про символ-разделитель для srtinggrid, возможно причина в нем

Помогите разобраться в чем дело

[dunin]

То ли с "i:=0" надо начинать (и с j разумеется тоже), то ли минус один у "RowCount-1" убрать. Не помню у стрингрида с 0 или с 1 начинается.

Добавлено спустя 58 секунд:
Вроде понятно написал. не?

[novo]

То ли с "i:=0" надо начинать (и с j разумеется тоже), то ли минус один у "RowCount-1" убрать. Не помню у стрингрида с 0 или с 1 начинается

Начинается с нуля, i и j равно 1 так как заголовки не трогаем
Проверил заполняется stringlist правильно

[Odyssey]

при дешифровке последние две строки остаются не расшифрованными

Если проблема при дешифровке, то разобраться с ней сможет только тот, кто видит код дешифровки. Одного только кода шифровки недостаточно. И если функции encrypt/decrypt нестандартные, то их код тоже нужно видеть, чтобы решить проблему.

[vada]

Возможно, при шифровании у тебя появляются символы-делимитеры строк, а те делимиторы что были зашифровываются.
Попробуй примерно так:

Код: Выделить всё

for I:=0 to list.Count-1 do
  list.Strings[I] := encrypt(list.Strings[I],'password');
list.savetofile('file.txt');

[novo]

Похоже, что проблема была в методе шифрования