Рус->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]

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

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

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

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