Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Рус->Eng Tng->Рус

Змей © (2004-11-03 14:15:00)
народ не подскажите как в событии onkeydown у edit1 сделать так чтобы при нажатии на Ф12 тобишь if key=vkF12 then английские буквы переделывались в русские и наоборот в етомже едите. зараннее благодарю

Змей (2004-11-03 16:11:00) [1]
KSergey ©

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

Symb (2004-11-03 15:58:00) [2]
Таблицу перевода для транслитерации можно взять стандартную (TYP, ГОСТ 16876-71 или ISO).

Семен Сорокин (2004-11-03 15:54:00) [3]

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

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

KSergey (2004-11-03 15:51:00) [4]
Видимо да...
Впрочем, за смешную практически плату и лично для Вас - я мог бы... ;)

Змей (2004-11-03 15:35:00) [5]
ясна спасиба
кароч не светит мне эта фишка

begin...end (2004-11-03 15:26:00) [6]
Что значит "катать"? Сделать её надо, после продумывания таблицы перевода.

Змей (2004-11-03 15:23:00) [7]
KSergey ©
я проста не наю как если не сложно напиши плиз

KSergey (2004-11-03 15:21:00) [8]
Можно другую.

Змей (2004-11-03 15:19:00) [9]
т.е. надо катать фонкциюMyConvertFunction?

begin...end (2004-11-03 14:48:00) [10]

> Змей © (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.

Наверх

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