| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Замена вункции Uppercase [D6, WinXP]

silvestr ©   (2005-06-13 11:28:00) 

Она переводит в верхний регистр только латиницу :( а как быть с керилицей ?

---

ferr   (2005-06-13 18:10:00) [1]

>CMP   AL,'я'
> JA    @@Exit

:))

---

Antonn   (2005-06-13 17:22:00) [2]

GuAV ©   (13.06.05 16:28) [5]
поправте, если не так, буду иметь ввиду (код не мой, но работает)

---

Anatoly Podgoretsky   (2005-06-13 16:35:00) [3]

MakedoneZ ©   (13.06.05 16:01) [4]
Вот это и надо было смотреть в справке и там прямо указано что использовать взамен. Или ты предлагаешь сюда скопировать справку7

---

GuAV   (2005-06-13 16:28:00) [4]

Antonn ©   (13.06.05 11:40) [2]
CMP   AL,'я'
JA    @@Exit

Это когда выполнится ?

---

MakedoneZ   (2005-06-13 16:01:00) [5]

> F1 + Uppercase

Можно было и помочь.

---

Antonn   (2005-06-13 11:40:00) [6]

silvestr   (13.06.05 11:28)
function UpCaseRus(ch: Char): Char;
asm
@@Rus:
 CMP   AL,'я'
 JA    @@Exit
 CMP   AL,'а'
 JB    @@yo
 SUB   AL,'я' - 'Я'
 RET
@@yo:
 CMP   AL,'ё'
 JNE   @@exit
 MOV   AL,'Ё'
@@exit:
end;

---

ferr   (2005-06-13 11:40:00) [7]

ShowMessage(AnsiUpperCase('Всё нормально'));

---

Anatoly Podgoretsky   (2005-06-13 11:31:00) [8]

F1 + Uppercase

---

Наверх