StringList(Delphi)

[CAMOBAP]

var 
  sl:TStringList;
  buf,res:string;
  K:integer;
procedure TForm2.sButton2Click(Sender: TObject);
var
 key,longkey: string;
  i : integer;
  toto: char;
begin
key:='1234';
k:=2;
AssignFile(F,fName);
Reset(F);
Readln(F,buf);
//дешифровка
for i := 0 to (length(buf) div length(key)) do
    longkey := longkey + key;
for i := 1 to length(buf) do
begin
    toto := chr((ord(buf[i]) xor ord(longkey[i])));
    res := res + toto;
end;
//
sl:=TStringList.Create;
sl.Text:=res;
sl.free;
Form3.sLabel1.Caption := sl[k+1];
Form3.sRadioButton1.Caption := sl[k+2];
Form3.sRadioButton2.Caption := sl[k+3];
Form3.sRadioButton3.Caption := sl[k+4];
Form3.sRadioButton4.Caption := sl[k+5];
closefile(f);
end;

Но в роботе программы появляется такая ошибка

Аccess violation at address 00000000. Read of adress  00000000

[Прик]

sl:=TStringList.Create;
sl.Text:=res;
sl.free;
Form3.sLabel1.Caption := sl[k+1];

Объект уничтожается (sl.free), затем к нему идет обращение (sl[k+1]). Забавное решение. Как ошибке не быть.

[CAMOBAP]

аж стыдно. спасибо большое.

Но появляется ошибка. Пишет что обращаюсь к несуществующему элементу массива. Хотя вроде как все правильно .

[Прик]

Посмотреть в отладке сколько на самом деле строк в sl.
Откуда уверенность, что в sl 8 строк (исходим из индекса [k+5] = 7)?

[CAMOBAP]

дело в том что ругаться даже на первую строку!

[Прик]

Если "первая" строка это Caption := sl[k+1], то в sl нет и 4-х строк.
[k+1] = 3.
Надо посмотреть в отладке что твориться в sl после присвоения sl.text := res.

[CAMOBAP]

вот когда прописываю

sl.loadfromfile(пусть к файлу)

то тогда считывает все норм . значит проблема в дешифровке или в присвоение.

код шифровки вот

key:='1234';
if not (sMemo1.Text='') then
begin
tnz:=sMemo1.Text;
for i := 0 to (length(tnz) div length(key)) do
    longkey := longkey + key;
for i := 1 to length(tnz) do
begin
    toto := chr((ord(tnz[i]) xor ord(longkey[i])));
    result := result + toto;
end;
if not sSaveDialog1.Execute
then
exit;
fName := sSaveDialog1.FileName;
AssignFile(f, fName);
Rewrite(f);
writeln(f,klik);
writeln(f,result);
CloseFile(f);

такое впечатление что при дешифровке переменная res остается пустой и потому stringlist также пуст.

[phomm]

скидывай проект, проверим махом, а то не понять что ты делаешь и что тебе надо...

[CAMOBAP]

короче я уже сам разобрался.спасибо всем кто пришел на помощь

[Serge_Bliznykov]

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

скидывай проект, проверим махом

+ 1

CAMOBAP, уж сколько мы с Вами на страницах форума обсуждали сортировку, обсуждали, а воз и ныне там!

Как минимум косячки из выше предложенного Вами кода:
1)

writeln(f,klik);

что за переменная? Откуда взялась? Зачем её пишите в выходной файл и где видно, что Вы её читаете?

2) мы с Вами говорили. что в результате XOR могут получится (и получаются!) НЕПЕЧАТНЫЕ символы. В том числе и переводы строк. Так почему Вы упорно продолжаете использовать текстовые файлы?!
и, как бы то ни было, Вы читаете из файла - ОДНУ первую строчку. Естественно, при попытке обратиться ко второй/третьей и т.д. получаете ошибку!!


ДОБАВЛЕНО

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

короче я уже сам разобрался.спасибо всем кто пришел на помощь

У! Здорово! Тогда поздравляю!