Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Вниз
Рус->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 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c
