$mymetatags$
Наш опрос |
Выключение монитора на 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; |
Друзья сайта |