Delphi. Шифр Цезаря через ASCII

[Agiza]

Написала программу, но она почему-то не пашет =( помогите пожалуйста

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  v:byte; e,d,c,s:string;  i,r:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

for i:=1 to length(s) do
 begin
  c:=Inttostr(Ord(S[I]));
  d:=c+inttostr(r);
  e:=chr(strtoint(d));
   edit2.Text:=e;
 end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=s;
edit3.Text:=inttostr(r);
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Wild_klas]

А каково задание - то?

[Agiza]

Задание: зашифровать по методу Цезаря сообщение. прим: абвгд + ключ(допустим 3) => гдеёж

[evg_m]

то что делается у вас.
c:=Inttostr(Ord(S[I])); превращаем символ 'a' в строку '31'
d:=c+inttostr(r); к строке '31' добавляем (дописываем) еще одну строку (пусть это будет '33'(полученное из символа 'c') в итоге вот такая строка '3133'

Сложение строк это не сложение чисел а склеивание
'31' + '2' = '312'

e:=chr(strtoint(d)); теперь для '3133' пытаемся найти символ
что очень затруднительно для ASCII.

В ТО время как НАДО было
превратить 'a' в число 1 'c' в 3
сложить эти числа 1 + 3
получить 4 и превратить в 'd'

'a'
ord('a')=31
ord('a') -30 =1
для 'c' аналогично 3
теперь 1 + 3 = 4
chr(4 +30 ) ='d'

т.е. у нас такая вот фрифметика
(31-30) + (33-30) + 30 = 34
но можно и чуть короче
(31) + (33- 30) = 34

Теперь о выводе результата.
edit2.Text:=e; каждый вновь "полученный " символ стирает все введенное до этого
в ответе надо накапливать символы.
edit1.Text:=edit1.Text +e;

P.S. А откуда возмуться значения для s и r если мы еще только создаем формую
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=s;
edit3.Text:=inttostr(r);
end;

[BoozZzilla]

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

т.е. у нас такая вот фрифметика
(31-30) + (33-30) + 30 = 34
но можно и чуть короче
(31) + (33- 30) = 34

Я недопонимаю зачем эти пляски с цифрой 30(подчеркну недопонимаю, может объясните), почему нельзя сделать просто

c:=ord(S[i]);
d:=c+r;  // у нас две переменные integer
e:=char(d);

Насколько я понял смещение r постоянное, оно просто выводится в edit
upd - ох, наврал про смещение, оно нигде не указывается. Ну тогда на тот же TForm1.Button1Click сначала прописать edit1.Text:=s; r:=StrToInt(r);
потому как читаться должно по нажатии кнопки а не по создании формы. О выводе результата поддерживаю

[evg_m]

Я недопонимаю зачем эти пляски с цифрой 30(подчеркну недопонимаю, может объясните),

если смещение задано числом то да пляски +-30 не нужны.
Мои объяснения и пляски для случая задания смещения буквой (у меня это была 'c' соответствующее смещению 3 ord('c') =33 =30 + 3).

(31) + (33- 30) = 34
(31) + 3 =34

А что собираетесь делать при шифрование последних букв алфавита(x y z)?

[BoozZzilla]

при смещении буквой задаём сначала r:=ord(S[0])-ord(edtit3.text[0]); (смещение первой буквы до буквы в edit) и дальше аналогично без этих лишних изысков
Насчёт последних букв надо спросить у автора насолько строг преподаватель. Возможно это спустится с рук, иначе я как начинающий сделал бы простым if xx>d>zz(не знаю я какой последний код у этих букв) then d:=d-26;
я также не вижу решения этой проблемы в вашем примере

[phomm]

Извините, возможно не довъехал в необходимые конвертации символов в числа, но хочу уточнить, что смещение в 33 будет давать косяки, надо делать смещение 32, потому как в аски(и в анси) символ ё не лежит в остальном алфавите. Для аски ещё плох тот факт , что алфавит строчных букв разрывается, не по порядку идут номера (от $A0 до $AF идут а-п, и от $E0 до $EF идут р-я), заглавные буквы идут нормально