Скачать: CL | DM;

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

← →
Змей ©   (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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c