Курсовая работа: Программа для перевода текстов с транслита

begin

if UpCase_R(ch) = 'Ё' then str1:= b_jo //Ё проверяем отдельно

elsestr1:= alph[UpCase_R(ch)]; //А все остальные берем из alph

ifstr1 <> '' then //Этот блок делает заглавным то,

begin //что должно быть заглавным.

if (length(str)> j1)and(str[j1+1] in al_set)or

(j1 > 1)and(str[j1-1] in al_set)then

fori3:= 1 tolength(str1) do //тут либо поднимается вся буква

(несколько символов, например SH)

begin

str1[i3]:= UpCase_R(str1[i3]);

end

else //либо только первый символ в букве (Sh)

str1[1]:= UpCase_R(str1[1]);

end;

str2:= str2+str1;

end

else if ch in small_al then //если маленькая русская буква

begin

if UpCase_R(ch) = 'Ё' then str1:= b_jo

else str1:= alph[UpCase_R(ch)];

str2:= str2+str1;

end

else //если не является символом русского алфавита

str2:= str2+ch;

end;

MainForm.MemLat.Lines.Add(str2); //добавляем переведенную строку в окошко

с переводом

end; //и все с начала (след. строка)