delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Шифровщик и расшифровщик в Delphi 7

Наш опрос

Как вы попали на сайт ???
Всего ответов: 483

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Выключение монитора на 5 секунд в Delphi 7.
Для создания понадобятся следующие компоненты:

Memo со вкладки Standard
Button (2 шт) со вкладки Standard

У Button1 меняем Caption на Зашифровать
У Button1 меняем Caption на Расшифровать

Заходим в обработчик событий onClick первой кнопки и пишем там:

Между Procedure и Begin

Var a, a1:string;
i:integer;

После Begin

a:=memo1.Text;
a1:='';
for i := 1 to length(a) do begin
if a[i]='п' then a1:=a1+'1';
if a[i]='р' then a1:=a1+'2';
if a[i]='и' then a1:=a1+'3';
if a[i]='в' then a1:=a1+'4';
if a[i]='е' then a1:=a1+'5';
if a[i]='т' then a1:=a1+'6';
После End

memo1.Text:=a1;

Заходим в обработчик событий onClick второй кнопки и пишем там:

Между Procedure и Begin

Var a, a1:string;
i:integer;

После Begin

a:=memo1.Text;
a1:='';
for i := 1 to length(a) do begin
if a[i]='1' then a1:=a1+'п';
if a[i]='2' then a1:=a1+'р';
if a[i]='3' then a1:=a1+'и';
if a[i]='4' then a1:=a1+'в';
if a[i]='5' then a1:=a1+'е';
if a[i]='6' then a1:=a1+'т';
После End

memo1.Text:=a1;

Если будет ошибка то после "memo1.Text:=a1;" напишите end;

В итоге должно получиться так:

procedure TForm1.Button1Click(Sender: TObject);
Var a, a1:string;
i:integer;
begin
a:=memo1.Text;
a1:='';
for i := 1 to length(a) do begin
if a[i]='п' then a1:=a1+'1';
if a[i]='р' then a1:=a1+'2';
if a[i]='и' then a1:=a1+'3';
if a[i]='в' then a1:=a1+'4';
if a[i]='е' then a1:=a1+'5';
if a[i]='т' then a1:=a1+'6';
end;
memo1.Text:=a1;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var a, a1:string;
i:integer;
begin
a:=memo1.Text;
a1:='';
for i := 1 to length(a) do begin
if a[i]='1' then a1:=a1+'п';
if a[i]='2' then a1:=a1+'р';
if a[i]='3' then a1:=a1+'и';
if a[i]='4' then a1:=a1+'в';
if a[i]='5' then a1:=a1+'е';
if a[i]='6' then a1:=a1+'т';
end;
memo1.Text:=a1;
end;
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432