procedure TForm1.button1Click(Sender: TObject);
var a,a1:string;
i:integer ;
begin
a:=memo1.Text;
a1:='';
for i:=1 to Length(a) do begin
//кнопка 1 и 2
if a[i] =' ' then a1:=a1+' ';
if a[i] ='а' then a1:=a1+'2*';
if a[i] ='б' then a1:=a1+'2**';
if a[i] ='в' then a1:=a1+'2***';
if a[i] ='г' then a1:=a1+'2****';
//кнопка 3
if a[i] ='д' then a1:=a1+'3*';
if a[i] ='е' then a1:=a1+'3**';
if a[i] ='ж' then a1:=a1+'3***';
if a[i] ='з' then a1:=a1+'3****';
//кнопка 4
if a[i] ='и' then a1:=a1+'4*';
if a[i] ='й' then a1:=a1+'4**';
if a[i] ='к' then a1:=a1+'4***';
if a[i] ='л' then a1:=a1+'4****';
//кнопка 5
if a[i] ='м' then a1:=a1+'5*';
if a[i] ='н' then a1:=a1+'5**';
if a[i] ='о' then a1:=a1+'5***';
if a[i] ='п' then a1:=a1+'5****';
//кнопка 6
if a[i] ='р' then a1:=a1+'6*';
if a[i] ='с' then a1:=a1+'6**';
if a[i] ='т' then a1:=a1+'6***';
if a[i] ='у' then a1:=a1+'6****';
//кнопка 7
if a[i] ='ф' then a1:=a1+'7*';
if a[i] ='х' then a1:=a1+'7**';
if a[i] ='ц' then a1:=a1+'7***';
if a[i] ='ч' then a1:=a1+'7****';
//кнопка 8
if a[i] ='ш' then a1:=a1+'8*';
if a[i] ='щ' then a1:=a1+'8**';
if a[i] ='ъ' then a1:=a1+'8***';
if a[i] ='ы' then a1:=a1+'8****';
//кнопка 9
if a[i] ='ь' then a1:=a1+'9*';
if a[i] ='э' then a1:=a1+'9**';
if a[i] ='ю' then a1:=a1+'9***';
if a[i] ='я' then a1:=a1+'9****';
end;
memo1.text:=a1;
end;
вопрос такой: как сделать что бы он обратно тоже расшифровывал а именно что бы принимал * за строку
Перейти на форум:
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
