Курсовая работа: Программа для перевода текстов с транслита
st2:= '';
for i3:= 1 to j1 do
begin
if (str[i3] in lat_small)or(str[i3] in lat_up)then
st2:= st2+str[i3] //если латинская буква тогда заносим её в st2!
else if j1 = 1 then
begin
st2:= str[i3]; //это символ не кириллицы, заносим в строку с результатом (st2)
delete(str,1,1); //удаляем из исходной
f_ok:= true; //обработали
break;
end
elsebreak;
end;
len:= length(st2); //запомним длину полученной строки
iffind(st2) then //и если окажется, что она соответствует русской букве
begin
delete(str,1,len); //удалим ее из исходной строки
f_ok:= true; //обработали
break;
end;
end;
str1:= str1 + st2; //добавляем к строке с результатом полученную букву
ifnotf_okthen
delete(str,1,1); //если по какой-то причине еще не удалили из исходной, то удаляем сейчас
end;
MainForm.MemCyr.Lines.Add(str1); //и заноси строку в окно с переводом
end;
end;