[bemot]

Решил сделать блокнот-шифровальщик. В итоге открывается сам проект блокнота, но не могу открыть файлы. Прикрепляю свою работу, помогите найти ошибку.

[Konrad]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

xr_num := '2'; //по умолчанию смещение = 2   procedure TForm1.N6Click(Sender: TObject); var xr: string; //зашифрованный текст i: integer; //счетчик цикла begin for i:=1 to Length(Memo1.Text) do begin //перебираем каждый символ в тексте //Выполняем указанное пользователем смещение xr := xr + Chr(Ord(Memo1.Text[i]) xor StrToInt(xr_num)); //заменяем оригинальный текст на зашифрованный Memo1.Text := xr; end; end;

Ужесть...

Во-первых xr := xr + ...; чему равно начальное значение xr?)
Во-вторых зачем каждый раз выполнять преобразование StrToInt(xr_num)? Чтобы программа работала быстрей?)
И т.д. ...

И кстати такой шифр взломает любой пятиклассник.

[bemot]

это все поменял, а по открытию файлов не понятно