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

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

Нужен аналог ;UpCase() [D6, Win95/98]

Inan61 ©   (2003-02-06 12:37:00) 

В данном примере при вводе в Edit первый символ переводится в верхний регистр, но работает только с латиницей. Как то же самое выполнить с кирилицей?

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Edit1.SelStart=0 then Key := UpCase(Key);
end;

---

gsu   (2003-02-06 13:14:00) [1]

>> if Edit1.SelStart=0 then Key := UpCase(Key);
тут он и так один

а с 1 символом, например:
simbol:=AnsiUpperCase(Edit1.Text[1]);

---

Inan61   (2003-02-06 12:50:00) [2]

> JohnnyJ © (06.02.03 12:43)
> AnsiUpperCase, но в приведенном примере проще у Edit"а поставить
> CharCase = ecUpperCase

К верхнему регистру должен преобразовываться только первый символ!

---

JohnnyJ   (2003-02-06 12:43:00) [3]

AnsiUpperCase, но в приведенном примере проще у Edit"а поставить CharCase = ecUpperCase

---

mrcat   (2003-02-06 12:41:00) [4]

AnsiUpperCase()

---

Наверх