[Mouse]

В общем согласно заданию необходимо, что бы в методе шифрования цезаря участвовали только символы "а...я", я очень долго пытался разобраться но ничего не выходит помогите плз.

Код:

procedure TForm1.BZShClick(Sender: TObject);
var
  i:integer;
begin
  str1:=mzSh.Text;
  MZZash.Text:='';
  bl:=StrToInt(ESdv.Text);
  for i:=1 to length(str1) do
    mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 256 );
end;
 
procedure TForm1.BZPozShClick(Sender: TObject);
var
  i:integer;
begin
 //str1:=mzZash.Text;
 //bl:=StrToInt(ESdv.Text);
  MZPozsh.Text:='';
  for i:=1 to length(str1) do
    MZPozsh.Text:=MZPozsh.Text+chr( (ord(str1[i])+(224-32)) mod +224 );
end;

Админ: Пользуемся тегами для оформления кода!