программа в Делфи на тему кодирование информации
Юля Саввина
нужна помощь,делаю программу в Делфи!! задача: программа должна кодировать русский текст на английскую раскладку.
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;

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