Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.05;
Скачать: 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 вся ветка

Текущий архив: 2006.02.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
1-1136394398
Piter
2006-01-04 20:06
2006.02.05
Потокобезопасность New / Dispose


3-1133879911
Sergey_Masloff
2005-12-06 17:38
2006.02.05
NVL для NUMERIC в FireBird


15-1137183315
geokis
2006-01-13 23:15
2006.02.05
отладка в Delphi 6


1-1136496471
tamroF
2006-01-06 00:27
2006.02.05
Чтобы не было никаких ошибок на английском. Чтоб все по-русски..


2-1137759600
Crass
2006-01-20 15:20
2006.02.05
Размер формы постоянный при смене рассширения экрана - КАК?