Транслит

← →
Змей © (2006-01-19 00:15) [0]

Доброе время суток Мастера!
нужно сделать при помощи клавищи Ф12 чтобы в едит1.техт
русские буквы переворачивались в англ и наоборот!
Пример:"фыва"="asdf"
может быть знаете где посмотреть примеры для выполнения данной задачи! конечно буду рад коду :)
СПАСИБО!

← →
Johnmen © (2006-01-19 00:21) [1]

http://delphimaster.net/view/2-1137461267/

← →
Кефир87 © (2006-01-19 00:23) [2]

> Пример:"фыва"="asdf"

это НЕ транслит!

← →
Змей © (2006-01-19 00:47) [3]

Кефир87 ну не ссудите уж за незнание:)
Спасибо за помощь

← →
AbrosimovA (2006-01-19 13:30) [4]

const Translit: array[1..33] of string = ("a","b","v","g","d","e","yo", "zh","z","i","j","k","l","m","n","o","p","r","s","t","u","f", "x","c","ch","sh","sh`","`","y","""","e`","yu","ya"); Cyrillic: array[1..33] of string = ("а","б","в","г","д","е","ё", "ж","з","и","й","к","л","м","н","о","п","р","с","т","у","ф", "х","ц","ч","ш","щ","ъ","ы","ь","э","ю","я"); procedure TForm1.mnTransClick(Sender: TObject); var k: cardinal; begin for k:=1 to 33 do begin RichEdt.Lines.Text:=StringReplace(RichEdt.Lines.Text,Cyrillic[k],Translit[k],[rfReplaceAll]); RichEdt.Lines.Text:=StringReplace(RichEdt.Lines.Text,AnsiUpperCase(Cyrillic[k]), UpperCase(Translit[k]),[rfReplaceAll]); end end;

Транслит Найти похожие ветки