Помогите исправить ошибку пожал-та. Что то вроде транслитератора.

[Gauss]

Вместо F7 нажми F4 на строке, где хочешь остановиться

Спасибо за помощь alexBlack ,
Тоже не получается, там остановка не в одном месте, при пошаговой компиляции сразу появляются молули этих компонентов. Может прикрепить мне эту прогу ,может поможет мне)

[Gauss]

то есть коды в строке memo1 не входят в указанный в case диапазон.

Если так, то почему это срабатывает

procedure TMainForm.Button1Click(Sender: TObject);   
begin   
memo2.Text:=dm.sr(#81)+dm.sr(#87)+dm.sr(#69)+dm.sr(#82)+dm.sr(#84)+dm.sr(#89)+dm.sr(#85)+dm.sr(#73)+dm.sr(#79)+dm.sr(#80)+dm.sr(#219)+dm.sr(#221)+dm.sr(#65)+dm.sr(#83)+dm.sr(#68)+dm.sr(#70);   
end;

Вроде, так он коды верно читает.

[alexBlack]

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

Тоже не получается, там остановка не в одном месте, при пошаговой компиляции сразу появляются молули этих компонентов. Может прикрепить мне эту прогу ,может поможет мне)

У меня нет TNT -компонентов. Давай лучше подскажу как пройти пошагово.

После компиляции ставишь курсор на case и нажимаешь F4 (выполнить до строки курсора). Появится форма. На ней нажимаешь button. Как только будет вызвана функ-я SR программа остановится. Дальше используешь F7 / F8 как обычно.

Второй вариант - поставить точку прерывания.

[alexBlack]

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

Если так, то почему это срабатывает

memo2.Text:=dm.sr(#81)+dm.sr(#87)+d m.sr(#69)+dm.sr(#82)+dm.sr(#84)+dm. sr(#89)+dm.sr(#85)+dm.sr(#73)+dm.sr (#79)+dm.sr(#80)+dm.sr(#219)+dm.sr( #221)+dm.sr(#65)+dm.sr(#83)+dm.sr(# 68)+dm.sr(#70);
end;

Вроде, так он коды верно читает.

Здесь ты указываешь коды сам. Вовсе не факт, что TTNTMemo хранит именно в этом виде. Я думаю, что все-таки там используется unicode кодировка, поэтому если посмотреть строку

temp := memo1.text,

то скорее всего в temp будет что-то вроде

#0142#0243#0243 ....

то-есть два байта на символ. Какие придется выяснять отдельно.
Если не получается с пошаговым прохождением, можно даже так:


после temp := memo1.text пишем

ShowMessage( intToStr(ORD(temp[1]) );
ShowMessage( intToStr(ORD(temp[2]) );

Потом набираем в memo1 один символ и смотрим какой будет код и так для всех символов.

[Gauss]

ShowMessage( intToStr(ORD(temp[1]) );
ShowMessage( intToStr(ORD(temp[2]) );

Спасибо, эти сделал, код выдает другой, например пишу в мемо1 буквы
"q" для него дает 113
"ь" для него дает 117

То есть не соответствует тем что я написал, значит мне поменять коды клавиш в case нужно, под эти?

[alexBlack]

Да, пройтись по всему алфавиту и поставить нужные коды.

[Gauss]

Огромное спасибо alexBlack ! Очень признателен, я неделю мучался над этой проблемой. Теперь хоть знаю уже в чем проблема, буду заменять в Case коды символов на те, которые мне показывают
ShowMessage( intToStr(ORD(temp[1]) );
...
Очень благодарен!

[Gauss]

А нельзя устранить такую проблему, которая вышла только что

Для двух разных азерб-их симолов выходят два одинаковых кода, например код 117 встретился дважды, потом 103, 63 и некторые другие. А в Case повторяющиеся коды не получается же.

[alexBlack]

Может все-таки все сложнее и символ задается двумя байтами ?

Самый простой способ определить:

пишем:

ShowMessage( intToStr( length(temp) ));
ShowMessage( intToStr( ord(temp[1]) ));
if length(temp) > 1 then ShowMessage( intToStr( ord(temp[2]) ));

В memo1 вводим только 1 символ и смотрим сколько символов получилось и какие коды.

Если есть двухбайтовые символы, функ-ю sr() придется переделать.

[alexBlack]

Нашел в инете описание TTNTMemo.

property Text: WideString;

То есть нужно делать так:

temp : wideString;   !!!!

чтобы посмотреть код символа:

ShowMessage( IntToStr( word(temp[1]) ));

и функцию sr() переделать:

function sr(C:WideChar):Strirng;
begin
    case word(C) of 
       ....
    else 
            sr := s
    end;
end;