‘орум программистов, компьютерный форум, киберфорум
Ќаши страницы

Delphi дл€ начинающих

¬ойти
–егистраци€
¬осстановить пароль
 
Sour1
0 / 0 / 0
–егистраци€: 15.12.2015
—ообщений: 11
#1

ѕеревод транслита на русский - Delphi

03.03.2016, 16:56. ѕросмотров 366. ќтветов 11
ћетки нет (¬се метки)

пока что поставил только 2 memo и button
и не написал саму программу
0
Ќадоела реклама? «арегистрируйтесь и она исчезнет полностью.
Similar
Ёксперт
41792 / 34177 / 6122
–егистраци€: 12.04.2006
—ообщений: 57,940
03.03.2016, 16:56
я подобрал дл€ вас темы с готовыми решени€ми и ответами на вопрос ѕеревод транслита на русский (Delphi):

ѕеревод на русский в конс-ном прил - Delphi
ѕомогите составить функцию (при создании консольного приложени€) дл€ вывода текста в запущенном приложении на русском €зыке

ѕреобразование транслита на русский €зык - C++
я новичок в программировании нужно на €зыке C++ составит программу: «адана строка на транслите. ѕреобразовать ее в строку, содержащую...

ѕеревод транслита в кириллицу - C++
ƒобрый день, кодеры! ¬озникла, значит, проблема: переводил текст с русского (с помощью cin.peek и cin.putback). ¬роде что то нацарапал. ј...

ѕеревод на русский €зык - »ностранные €зыки
Forces Acting on the Aircraft Thrust, drag, lift, and weight are forces that act upon all aircraft in flight. Understanding how these...

ѕеревод аплета на русский - Java
≈сть вот така€ значит программка: ¬сЄ значит в ней работает. я еЄ декомпилировал, потом перевЄл в ней всЄ на русский, обратно...

ѕеревод с кириллицы на русский - C++
ƒоброго времени суток!  то-нибудь подскажет, что здесь не так? ÷ель задачи - переводить cout с кириллицы на русский €зык. »спользую MS...

11
qwertehok
2185 / 2175 / 514
–егистраци€: 29.08.2013
—ообщений: 14,518
03.03.2016, 16:59 #2
есть таблица транслитерации (причем не одна)
берите ее и посимвольно переводите с помощью этой таблицы
0
quwy
Native x86
3333 / 2180 / 597
–егистраци€: 13.02.2013
—ообщений: 7,239
03.03.2016, 17:04 #3
Delphi
1
2
3
4
5
6
7
8
9
10
11
a:= Memo1.Lines.Text;
{ сначала замен€ем составные звуки }
a:= StringReplace(a, 'sh', 'ш', [rfReplaceAll]);
a:= StringReplace(a, 'SH', 'Ў', [rfReplaceAll]);
a:= StringReplace(a, 'Sh', 'Ў', [rfReplaceAll]);
// то же самое делаем дл€ zh -> ж, ch -> ч, ya -> € и так далее
{ замен€ем простые звуки }
a:= StringReplace(a, 'G', '√', [rfReplaceAll]);
a:= StringReplace(a, 'g', 'g', [rfReplaceAll]);
// то же самое делаем дл€ всех остальных букв
Memo2.Lines.Text:= a;
0
Sour1
0 / 0 / 0
–егистраци€: 15.12.2015
—ообщений: 11
03.03.2016, 17:16  [“—] #4
÷итата —ообщение от quwy ѕосмотреть сообщение
rfReplaceAll
можете по€снить дл€ чего это
0
qwertehok
2185 / 2175 / 514
–егистраци€: 29.08.2013
—ообщений: 14,518
03.03.2016, 17:23 #5
это значит - заменить все эти символы в тексте

но так писать не очень красиво
0
NIKOLAYY
818 / 716 / 161
–егистраци€: 22.09.2012
—ообщений: 4,994
03.03.2016, 17:24 #6
ј как?
0
qwertehok
2185 / 2175 / 514
–егистраци€: 29.08.2013
—ообщений: 14,518
03.03.2016, 17:33 #7
÷итата —ообщение от NIKOLAYY ѕосмотреть сообщение
ј как?
а вы не помните?
ѕрограмма, перевод€ща€ кириллицу в транслит
0
NIKOLAYY
818 / 716 / 161
–егистраци€: 22.09.2012
—ообщений: 4,994
03.03.2016, 17:44 #8
qwertehok,

Ќе по теме:

ћассив. круто чо )))

0
Sour1
0 / 0 / 0
–егистраци€: 15.12.2015
—ообщений: 11
03.03.2016, 18:11  [“—] #9
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
procedure TForm1.Button1Click(Sender: TObject);
var
 a:string;
begin
a:= mmo1.Lines.Text;
a:= StringReplace(a, 'A', '√А', [rfReplaceAll]);
a:= StringReplace(a, 'B', '√Б', [rfReplaceAll]);
a:= StringReplace(a, 'V', '√В', [rfReplaceAll]);
a:= StringReplace(a, 'G', '√Г', [rfReplaceAll]);
a:= StringReplace(a, 'D', '√Д', [rfReplaceAll]);
a:= StringReplace(a, 'E', '√Е', [rfReplaceAll]);
a:= StringReplace(a, 'YO', '¨', [rfReplaceAll]);
a:= StringReplace(a, 'ZH', '√Ж', [rfReplaceAll]);
a:= StringReplace(a, 'Z', '√З', [rfReplaceAll]);
a:= StringReplace(a, 'I', '√И', [rfReplaceAll]);
a:= StringReplace(a, 'J', '√Й', [rfReplaceAll]);
a:= StringReplace(a, 'K', '√К', [rfReplaceAll]);
a:= StringReplace(a, 'L', '√Л', [rfReplaceAll]);
a:= StringReplace(a, 'M', '√М', [rfReplaceAll]);
a:= StringReplace(a, 'N', '√Н', [rfReplaceAll]);
a:= StringReplace(a, 'O', '√О', [rfReplaceAll]);
a:= StringReplace(a, 'P', '√П', [rfReplaceAll]);
a:= StringReplace(a, 'R', '√Р', [rfReplaceAll]);
a:= StringReplace(a, 'S', '√С', [rfReplaceAll]);
a:= StringReplace(a, 'T', '√Т', [rfReplaceAll]);
a:= StringReplace(a, 'U', '√У', [rfReplaceAll]);
a:= StringReplace(a, 'F', '√Ф', [rfReplaceAll]);
a:= StringReplace(a, 'H', '√Х', [rfReplaceAll]);
a:= StringReplace(a, 'C', '√Ц', [rfReplaceAll]);
a:= StringReplace(a, 'CH', '√Ч', [rfReplaceAll]);
a:= StringReplace(a, 'SH', '√Ш', [rfReplaceAll]);
a:= StringReplace(a, 'SCH', '√Щ', [rfReplaceAll]);
a:= StringReplace(a, 'Q', '√Ь', [rfReplaceAll]);
a:= StringReplace(a, 'YI', '√Ы', [rfReplaceAll]);
a:= StringReplace(a, '"`', '√Ъ', [rfReplaceAll]);
a:= StringReplace(a, 'YE', '√Э', [rfReplaceAll]);
a:= StringReplace(a, 'YU', '√Ю', [rfReplaceAll]);
a:= StringReplace(a, 'YA', '√Я', [rfReplaceAll]);
 
a:= StringReplace(a, 'a', '√*', [rfReplaceAll]);
a:= StringReplace(a, 'b', '√°', [rfReplaceAll]);
a:= StringReplace(a, 'v', '√Ґ', [rfReplaceAll]);
a:= StringReplace(a, 'g', '√£', [rfReplaceAll]);
a:= StringReplace(a, 'd', 'ä', [rfReplaceAll]);
a:= StringReplace(a, 'e', 'å', [rfReplaceAll]);
a:= StringReplace(a, 'yo', '¬Є', [rfReplaceAll]);
a:= StringReplace(a, 'zh', 'æ', [rfReplaceAll]);
a:= StringReplace(a, 'z', '√І', [rfReplaceAll]);
a:= StringReplace(a, 'i', 'è', [rfReplaceAll]);
a:= StringReplace(a, 'j', 'é', [rfReplaceAll]);
a:= StringReplace(a, 'k', 'ê', [rfReplaceAll]);
a:= StringReplace(a, 'l', '√Ђ', [rfReplaceAll]);
a:= StringReplace(a, 'm', '√ђ', [rfReplaceAll]);
a:= StringReplace(a, 'n', '√*', [rfReplaceAll]);
a:= StringReplace(a, 'o', '√Ѓ', [rfReplaceAll]);
a:= StringReplace(a, 'p', '√ѓ', [rfReplaceAll]);
a:= StringReplace(a, 'r', '√∞', [rfReplaceAll]);
a:= StringReplace(a, 's', 'ñ', [rfReplaceAll]);
a:= StringReplace(a, 't', 'ò', [rfReplaceAll]);
a:= StringReplace(a, 'u', 'ó', [rfReplaceAll]);
a:= StringReplace(a, 'f', '√і', [rfReplaceAll]);
a:= StringReplace(a, 'h', 'õ', [rfReplaceAll]);
a:= StringReplace(a, 'c', '√ґ', [rfReplaceAll]);
a:= StringReplace(a, 'ch', '√Ј', [rfReplaceAll]);
a:= StringReplace(a, 'sh', '√Є', [rfReplaceAll]);
a:= StringReplace(a, 'sch', '√є', [rfReplaceAll]);
a:= StringReplace(a, 'q', '√Љ', [rfReplaceAll]);
a:= StringReplace(a, 'yi', '√ї', [rfReplaceAll]);
a:= StringReplace(a, '"', '√Ї', [rfReplaceAll]);
a:= StringReplace(a, 'ye', '√љ', [rfReplaceAll]);
a:= StringReplace(a, 'yu', '√Њ', [rfReplaceAll]);
a:= StringReplace(a, 'ya', '√њ', [rfReplaceAll]);
 
mmo2.Lines.Text:= a;
end;
вот что получилось
но он не перводит ya,yu.ch,sh...
0
qwertehok
2185 / 2175 / 514
–егистраци€: 29.08.2013
—ообщений: 14,518
03.03.2016, 18:16 #10
хорошо что вам не китайский надо переводить
0
quwy
Native x86
3333 / 2180 / 597
–егистраци€: 13.02.2013
—ообщений: 7,239
03.03.2016, 18:25 #11
÷итата —ообщение от Sour1 ѕосмотреть сообщение
но он не перводит ya,yu.ch,sh...
ѕисал же:
÷итата —ообщение от quwy ѕосмотреть сообщение
сначала замен€ем составные звуки
0
Sour1
0 / 0 / 0
–егистраци€: 15.12.2015
—ообщений: 11
10.03.2016, 18:05  [“—] #12
—пасибо
работает))
0
10.03.2016, 18:05
MoreAnswers
Ёксперт
37091 / 29110 / 5898
–егистраци€: 17.06.2006
—ообщений: 43,301
10.03.2016, 18:05
ѕривет! ¬от еще темы с ответами:

–усский перевод Beginers Guide - Basic4Android
ќригинал документа здесь: http://www.slideshare.net/Erel2/beginners-guide –усский перевод прикладываю.

ѕеревод WordPress с украинского на русский - WordPress
ѕривет, у мен€ стоит wordpress 3.5.1 на украинском, можно ли поставить wordpress 3.6 Ќа русском что бы все информаци€ и все осталось,...

ѕеревод модул€ Views на русский - Drupal
ƒоброго нового года! Ќужно перевести модуль Views на русский. ЌашЄл соответствующий .po файл. ¬опрос : что с ним делать? ѕо...

ѕеревод модул€ на русский €зык - Joomla
ƒобрый день. ¬опрос по переводу на русский €зык.   примеру, установил модуль jak2filter. ќн английский. Ќашел в папке...


»скать еще темы с ответами

»ли воспользуйтесь поиском по форуму:
12
ќтвет —оздать тему
ќпции темы

 ибер‘орум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
–ейтинг@Mail.ru