На Английский клавиатуре что писал на Русском

[xxbesoxx]

Сообщение от Arigato

Так это все и сейчас будет работать.

Попробую еще боле подробно объяснить .... На пример в программу есть

Form1, Form2 и Form3
На Form1 есть Edit1 Edit2 и Edit3
На пример надо что Edit1 и Edit3 писал на "Русском языке" А Edit2 на "Английский языке"
Если я буду прописать " Edit1 и Edit3 " Это код из события onkeypress то да работает... Но это же я повторяю одно и тот же код! Я ЭТО НЕ ХОЧУ ! Понимайте ? А если это еще мне надо Form2 и Form3 что копировать это код везде ??? Как HTML ?

В Delphi Есть { Public declarations } для этого да ?

[Человек_Борща]

МНЕ НАДО ЭТО КОД РЕАЛИЗОВАТЬ В ПОДПРОГРАММУ И ВЫЗВАТЬ ЕГО ГДЕ МНЕ НУЖНО

Рад за вас.


Ваша задача решается проще чем вы думаете. Создаете отдельный модуль(не форму!), в нем забиваете функции типа:

function EncodeCharRU(const aChar:PChar):PChar;
begin
 case aChar of
 'y': Result:= 'Й';
 .....
end;

А потом просто подключаете этот модуль в любой форме, а в нужном Edit, в OnKeyPress вызываете функцию:

Key := EncodeCharRU(Key);

все.

На одной форме достаточно всем эдитам забить один обработчик событий OnKeyPress и все.

P.S. Прекратите писать капсом, а то такое чувство, что там неуравновешенный человек сидит. Если так, то вам бы к психиатру сходить.... вы так на всех орете?
Для выделения сути достаточно нажать Ctrl+B.

[xxbesoxx]

Человек_Борща Спасибо за внимание! Да вы правильно поняли что я хочу ! Но код у меня не компилируется
Смотрите начинаю объявить процедур

  public
   function EncodeCharRU(const aChar:PChar):PChar; // Нажимаю Ctrl + Shift + C

И шаблоне пишу

   case aChar of
    'a': Result:= 'Ф';
    'A': Result:= 'ф';
    'b': Result:= 'и';
    'B': Result:= 'И';
    'c': Result:= 'с';
    'C': Result:= 'С';
    'd': Result:= 'в';
    'D': Result:= 'В';
   end;

У вас это код компилируется ?

P.S. Прекратите писать капсом, а то такое чувство, что там неуравновешенный человек сидит. Если так, то вам бы к психиатру сходить.... вы так на всех орете?

Человек_Борща
1. Уважаемы я вам ЛИЧНО спрашиваю ?
2. Вам не интересно НЕ ЧИТАЙТЕ что я пишу и НЕ ОТВЕЧАЙТЕ
3. Ваши мнения СОХРАНИТЕ СЕБЯ ! Что я думаю НА ВАС Я просто здесь не скажу !!!
Скажу только ОДНО !!! Хамите ваши Знакомы и друзья ! МНЕ ЗДЕСЬ НЕ НАДО ВАШИ БЕЗ "бессмысленны" РАЗГОВОР !

[Человек_Борща]

У вас это код компилируется ?

Case нельзя применить к строкам и символам. Либо через массив либо через if. Или через case но по коду символа.

Ок, удачи. Не интерсно отвечать вопросы человека, который не способен не писать капсом когда это не надо.

[xxbesoxx]

Разобрал и напишу прямо здесь ребята может кому то ПРИГОДИТСЯ

1. Обявляю процедур разделе паблик

  public
   procedure EncodeCharRU(var Key: Char) ; //

2. В тела этого процедур вот это

procedure TForm1.EncodeCharRU(var Key: Char);
Const
   Lat = '~@#$^&QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?`qwertyuiop[]asdfghjkl;''\zxcvbnm,./';
   Cyr = 'Ё"№;:?ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,ёйцукенгшщзхъфывапролджэ\ячсмитьбю.';
var
  i: Integer;
begin
   for i := 1 to Length(Lat)
   do if Key=Lat[i] then Key := Cyr[i];

end;

end.

3. Вызвать это процедур можно из любой Edit из событя OnKeyPress

  EncodeCharRU(key);

4. Если нужно на другом форму ! То вызываем так

    Form1.EncodeCharRU(key);

Преимущество то что НЕ ПОВТОРЯЮ ОДНО И ТОТ ЖЕ КОД !

Человек_Борща Я не хочу спорить !!! Но следующий раз следите за ваши разговор Я не кому не оскорблял ! Вы не имеете право разговаривать так ПЕРЕД СО МНОЙ ....

который не способен не писать капсом когда это не надо.

Это вы мне говорите ?
НЕ ОДИН КОД НЕ РАБОТАЛ ВАШИ ! Вы просто копировал от куда и вставили здесь !

Кому нужно .... Можно посмотреть пример

[Arigato]

Сообщение от xxbesoxx

Кому нужно ....

А кому это тут нужно, кроме вас? Я вам уже дал ответ, как можно сделать.

[xxbesoxx]

Сообщение от Arigato

А кому это тут нужно, кроме вас? Я вам уже дал ответ, как можно сделать.

Arigato Я честно не понял как это реализовать . ЭТО НУЖНО . операторы требует .... На пример на Edit1 они пишет по Русский , А на втором на Английском
Что они не переключали клавиатура каждое РАЗ . Понимайте ? Для быстрое обслуживание, что оператор мог быстро обслуживать каждое КЛИЕНТ .
А я не хотел дублировать код как HTML .... И еще здесь можно описать любой язык

Const
   Lat = '~@#$^&QWERTYUIOP{}ASDFGHJKL:"|ZXCVBNM<>?`qwertyuiop[]asdfghjkl;''\zxcvbnm,./';
   Cyr = 'Ё"№;:?ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭ/ЯЧСМИТЬБЮ,ёйцукенгшщзхъфывапролджэ\ячсмитьбю.';

Ну ладно .... Всем спасибо Тема можно закрыть

[Stilet]

Что они не переключали клавиатура каждое РАЗ .

Неудачная идея. А если нужно переключиться на другую раскладку? Например написать Улицу во Франции. Что писать "РюДеПапильон" прикажешь?
Переключение раскладки пусть делают операторы, это много времени не займет, а ты своей идеей, просто поверь, только медвежью услугу им делаешь. Я уж знаю - специфика работы такая.

[xxbesoxx]

это много времени не займет, а ты своей идеей, просто поверь, только медвежью услугу им делаешь. Я уж знаю - специфика работы такая.

Я вас понимаю ... Но это клиент заказывает такой доработку . это Ломбарде когда они принимает товар что

Edit_Fio писал на по Русский , и Edit_ProductName и Edit_Model на Английском. И на компьютере стоит только 2 язык (Русский и Английский)

[Человек_Борща]

операторы требует .... На пример на Edit1 они пишет по Русский , А на втором на Английском

Не продумано реализовали. Зачем весь этот геморой?
А вы про спец. знаки для раскладки подумали? нет. А надо бы... когда человек пишет на английском, нажимая > он ожидает . а не ю. А регистр знаков?

Переключайте саму раскладку клавиатуры и возвращайте её на место, специфично для Edit'а. Будет лучшим решением проблемы