|
Delphi. Учимся на примерахПосле того как пользователь выбрал файл, загружаем его в нашу программу. Обработчик события OnClick для пункта Файл→Сохранить: procedure TForm1.N2Click(Sender: TObject); begin SaveDialog1.InitialDir:= GetCurrentDir; if not SaveDialog1.Execute then ShowMessage('File not saved!') else //сохраняем в файл Memo1.Lines.SaveToFile(SaveDialog1.FileName); end; Открываем диалоговое окно сохранения файла. После того как пользователь выбрал место сохранения файла, извлекаем текст из Memo и сохраняем его в выбранной папке. Обработчик события OnClick для пункта Файл→Выход: procedure TForm1.N4Click(Sender: TObject); begin Close;//закрыть программу end; Обработчик события OnClick для пункта Правка→Число XOR: procedure TForm1.XoR1Click(Sender: TObject); begin if not InputQuery('XOR', 'Введите число xor:', xr_num) then Exit; end; Здесь мы отображает окно для выбора числа xor. Указанное пользователем число будет занесено в переменную xr_num. Обработчик события OnClick для пункта Правка→Зашифровать/Расшифровать: procedure TForm1.N5Click (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)); end; //заменяем оригинальный текст на зашифрованный Memo1.Text := xr; end; По этой команде меню выполняется шифрование текста, который сейчас находится в поле Memo ...» |
Код для вставки книги в блог HTML
phpBB
текст
|
|