Transliteration строки

[grafgrial]

Хотел использовать данный код чтобы перевести анг буквы в русские но выдает ошибки
[Error] Unit1.pas(116): Duplicate case label
[Error] Unit1.pas(117): Incompatible types: 'Char' and 'String'
[Error] Unit1.pas(118): Incompatible types: 'Char' and 'String'
[Error] Unit1.pas(119): Incompatible types: 'Char' and 'String'
на строчках где 2 анг буквы ('ye': k:=k+'ё'; )
Как избежать такого?

function Transliteration(s: string): string;
var
i: integer;
k: string;
begin
for i:=1 to Length(s) do
begin
case s[i] of
'a': k:=k+'а';
'b': k:=k+'б';
'v': k:=k+'в';
'g': k:=k+'г';
'd': k:=k+'д';
'e': k:=k+'е';
'ye': k:=k+'ё';
'zh': k:=k+'ж';
'z': k:=k+'з';
'i': k:=k+'и';
'y': k:=k+'й';
'k': k:=k+'к';
'l': k:=k+'л';
'm': k:=k+'м';
'n': k:=k+'н';
'o': k:=k+'о';
'p': k:=k+'п';
'r': k:=k+'р';
's': k:=k+'с';
't': k:=k+'т';
'u': k:=k+'y';
'f': k:=k+'ф';
'ch': k:=k+'х';
'z': k:=k+'ц';
'ch': k:=k+'ч';
'sh': k:=k+'ш';
'ch': k:=k+'щ';
'''': k:=k+'ъ';
'y': k:=k+'ы';
'''': k:=k+'ь';
'e': k:=k+'э';
'yu': k:=k+'ю';
'ya': k:=k+'я';
'A': k:=k+'А';
'B': k:=k+'Б';
'V': k:=k+'В';
'G': k:=k+'Г';
'D': k:=k+'Д';
'E': k:=k+'Е';
'Ye': k:=k+'Ё';
'Zh': k:=k+'Ж';
'Z': k:=k+'З';
'I': k:=k+'И';
'Y': k:=k+'Й';
'K': k:=k+'К';
'L': k:=k+'Л';
'M': k:=k+'М';
'N': k:=k+'Н';
'O': k:=k+'О';
'P': k:=k+'П';
'R': k:=k+'Р';
'S': k:=k+'С';
'T': k:=k+'Т';
'U': k:=k+'У';
'F': k:=k+'Ф';
'Ch': k:=k+'Х';
'Z': k:=k+'Ц';
'Ch': k:=k+'Ч';
'Sh': k:=k+'Ш';
'Ch': k:=k+'Щ';
'''': k:=k+'Ъ';
'Y': k:=k+'Ы';
'''': k:=k+'Ь';
'E': k:=k+'Э';
'Yu': k:=k+'Ю';
'Ya': k:=k+'Я';
else k:=k+s[i];
end;
end;
Result:=k;
end;

[evg_m]

'ch': k:=k+'х';
Где вы видели СИМВОЛ 'ch
В качестве идентификатора ветки можно использовать только отдельные символы. 'ch' это уже строка. Об этом и говорит Delphi. нужен один символ (char) вижу строку(string) .
перейти для сочетаний на if then else if ...

case s[i] of
....
'c': if copy(s,i,2)='ch' then ....
      else ....
...

[grafgrial]

не пойму как писать это
сделал так, матерится

'y': k:=k+'й'; if copy(s,i,2)='ye' then k:=k+'ё'
else begin if copy(s,i,2)='yu' then  k:=k+ю'
else begin if copy(s,i,2)='ya' then k:=k+'я';end; end;

[Аватар]

'y': begin
       k:=k+'й'; 
       if copy(s,i,2)='ye' then k:=k+'ё'
       else if copy(s,i,2)='yu' then  k:=k+'ю'
       else if copy(s,i,2)='ya' then k:=k+'я';
     end;

[Serge_Bliznykov]

grafgrial

посмотрите сюда
правда, там готовое решение обратной задачи (из русского -> транслит)
но по образу и подобию можно написать и обратную функцию.
только при организации поиска по таблице Table2 я бы переформировал таблицу так, чтобы более длиные последовательности были вначале...

если до вечера сами не справитесь - напишу программу.

и на будущее, если что-то может быть вынесено в структуры данных (массивы, списки и т.д. ) то это должно быть вынесено! Иначе получается муторный, ненадёжный, ненаглядный и не модицифируемый код!

[grafgrial]

Сообщение от Serge_Bliznykov

grafgrial

посмотрите ....

да помоги, пожалуйста