Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];

Вниз

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

 
Змей ©   (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.013 c
2-1137503230
Ольга
2006-01-17 16:07
2006.02.05
Высота ToolButtons в ToolBar


1-1136286232
azl
2006-01-03 14:03
2006.02.05
Плавное соскальзывание формы при сворачивании


1-1135797029
deamon_t
2005-12-28 22:10
2006.02.05
Алгоритм захвата экрана


9-1124403540
ConferNo
2005-08-19 02:19
2006.02.05
GLScene Lightmaps


4-1132453837
Relaxxx
2005-11-20 05:30
2006.02.05
Корректоное отображение 32-битных иконок(с alpha-каналом) на кно





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский