Как преобразовать текст в документе из латиницы в кириллицу ("только в кавычках") во всем документе

@Alloc · Регистрация: 20.11.2014

Здравствуйте уважаемые форумчане!
Собственно сабж.

Нашел интересную функцию которая работает а что делать дальше ума не приложу.

Delphi

function LatToRus (s: string): string;
const
  QuertyLat = 'QWERTYUIOP[]ASDFGHJKL:ZXCVBNM<>qwertyuiop[]asdfghjkl;"zxcvbnm,.';
  QuertyRus: string = 'ÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆß×ÑÌÈÒÜÁÞéöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþ';
var
  i, index: integer;
begin
  for i:=1 to length(s) do begin
    if s[i]='''' then s[i]:='?'
    else begin
      index := pos(s[i],QuertyLat);
      if index<>0 then begin
        delete(s,i,1);
        insert(QuertyRus[index],s,i);
      end;
    end;
  end;
  LatToRus := s;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
 mmo2.Text:= LatToRus(mmo1.Text);
end;

Помогите пожалуйста, господа программисты.

@BiHiTRiLL · 22.01.2015, 18:49

Эта программа не поменяет кириллицу на латиницу, она просто поменяет раскладку текста. чтобы меняла текст корректно нужно поправить соответствие в 3 и 4 строках.

@BiHiTRiLL 10 / 10 / 5 Регистрация: 26.08.2014 Сообщений: 91
	22.01.2015, 18:49	2
	Эта программа не поменяет кириллицу на латиницу, она просто поменяет раскладку текста. чтобы меняла текст корректно нужно поправить соответствие в 3 и 4 строках. 0

Опции темы