[bemot]

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

[Konrad]

Код:

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]

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