программа в Делфи на тему кодирование информации

нужна помощь,делаю программу в Делфи!! задача: программа должна кодировать русский текст на английскую раскладку.

var

str: String;

I: Integer;

begin

str:=Memo1.Lines.Text;

for I:=1 to Lenght(str) do

begin

if str[I]:='а' then 

str[I]:='f';

if str[I]:='А' then

str[I]:='F';

if str[I]:='б' then 

str[I]:=',';

if str[I]:='Б' then

str[I]:='<';

if str[I]:='в' then 

str[I]:='d';

if str[I]:='В' then

str[I]:='D';

..и так далее весь алфавит

Memo2.Text:= str;

end;

Я если честно первый раз что то пишу в делфи,делала по методичке,но код не работает и я не знаю почему,если кто то может помочь,кто разбирается в этой теме,помогите пожалуйста.

Юля Саввина около 2 лет назадСпасибо 0

Бесплатная регистрация