Главная страница
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.046 c
3-1133847253
ShiFT
2005-12-06 08:34
2006.02.05
программа построения cхемы связей


2-1137447930
Змей
2006-01-17 00:45
2006.02.05
Шрифт в popup & main menu


15-1137048829
ZeroDivide
2006-01-12 09:53
2006.02.05
Что вы думаете о Fyracle?


15-1136745707
DeMoN-777
2006-01-08 21:41
2006.02.05
Архивы форумов


15-1136965696
Danilka
2006-01-11 10:48
2006.02.05
Маппирование клиентского COM-порта под терминалом сервера Win2k