урок на делфи 36 - Шифр Цезаря

задание на delphi. Шифр цезаря на делфи

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ValEdit, Spin;
type
TForm1 = class(TForm)
ValueListEditor1: TValueListEditor;
SpinEdit1: TSpinEdit;
Memo1: TMemo;
Memo2: TMemo;
Label2: TLabel;
Button1: TButton;
Button4: TButton;
Memo4: TMemo;
Memo5: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,r,k,g:integer;
{Программа подготовлена для ролика на ютубе https://youtu.be/RvoR8768a2I
И скачена с сайте http://dear-ruslan.ru
Автор Салихьянов Руслан. }
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
t,d,s:string;
begin
Memo2.Clear;
Memo4.Clear;
Memo5.Clear;
s:=(Memo1.Text);
for i := 1 to Length(s) do
begin
for r := 1 to 34 do
begin
if ValueListEditor1.Cells[0,r] = (s[i]) then
begin
t:= ValueListEditor1.Cells[1,r];
g:=strtoint(t)+SpinEdit1.Value;
if g>34 then
g:=g-34;
Memo4.Lines.Add(IntToStr(g));
end;
end;
end;
for k := 0 to Memo4.Lines.Count-1 do
for r := 1 to 34 do
if ValueListEditor1.Cells[1,r] = (Memo4.Lines[k]) then
begin
d:= ValueListEditor1.Cells[0,r];
Memo2.text :=Memo2.text+d;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
s,t,d:string;
begin
Memo5.Clear;
s:=Memo2.Text;
for i := 1 to Length(s) do
begin
for r := 1 to 34 do
if ValueListEditor1.Cells[0,r] = s[i] then
begin
t:= ValueListEditor1.Cells[1,r];
g:=strtoint(t)-SpinEdit1.Value;
if g<1 then
g:=g+34;
end;
for r := 1 to 34 do
if ValueListEditor1.Cells[1,r] = inttostr(g) then
begin
d:= ValueListEditor1.Cells[0,r];
Memo5.text:=Memo5.text+d;
end;
end;
end;
end.



Скачать