| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Транслит
Змей © (2006-01-19 00:15:00)Доброе время суток Мастера!
нужно сделать при помощи клавищи Ф12 чтобы в едит1.техт
русские буквы переворачивались в англ и наоборот!
Пример:"фыва"="asdf"
может быть знаете где посмотреть примеры для выполнения данной задачи! конечно буду рад коду :)
СПАСИБО!
AbrosimovA (2006-01-19 13:30:00) [1]
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;
Змей (2006-01-19 00:47:00) [2]Кефир87 ну не ссудите уж за незнание:)
Спасибо за помощь
Кефир87 (2006-01-19 00:23:00) [3]
> Пример:"фыва"="asdf"
это НЕ транслит!
Johnmen (2006-01-19 00:21:00) [4]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1137461267&n=18
| |
