Скачать: CL | DM;

Рус->Eng Tng->Рус   Найти похожие ветки 

← →
Змей ©   (2004-11-03 14:15) [0]

народ не подскажите как в событии onkeydown у edit1 сделать так чтобы при нажатии на Ф12 тобишь if key=vkF12 then английские буквы переделывались в русские и наоборот в етомже едите. зараннее благодарю

---

← →
begin...end ©   (2004-11-03 14:48) [1]

> Змей ©   (03.11.04 14:15)

Вначале следует определиться с тем, какому русскому символу какой английский соответствует, и наоборот. Причём не каждая ведь русская буква может быть "представлена" в виде одной английской, например буква "я". А это уже усложняет задачу.

А уж сделать это преобразование по нажатию F12 - это уж дело десятое.

procedure TFormName.EditNameKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key = VK_F12 then
   EditName.Text := MyConvertFunction(EditName.Text)
end.

---

← →
Змей ©   (2004-11-03 15:19) [2]

т.е. надо катать фонкциюMyConvertFunction?

---

← →
KSergey ©   (2004-11-03 15:21) [3]

Можно другую.

---

← →
Змей ©   (2004-11-03 15:23) [4]

KSergey ©
я проста не наю как если не сложно напиши плиз

---

← →
begin...end ©   (2004-11-03 15:26) [5]

Что значит "катать"? Сделать её надо, после продумывания таблицы перевода.

---

← →
Змей ©   (2004-11-03 15:35) [6]

ясна спасиба
кароч не светит мне эта фишка

---

← →
KSergey ©   (2004-11-03 15:51) [7]

Видимо да...
Впрочем, за смешную практически плату и лично для Вас - я мог бы... ;)

---

← →
Семен Сорокин ©   (2004-11-03 15:54) [8]

> Змей ©   (03.11.04 15:35) [6]
> ясна спасиба
> кароч не светит мне эта фишка

Афигенный подход

---

← →
Symb   (2004-11-03 15:58) [9]

Таблицу перевода для транслитерации можно взять стандартную (TYP, ГОСТ 16876-71 или ISO).

---

← →
Змей ©   (2004-11-03 16:11) [10]

KSergey ©

вы издеваетесь

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.284 c