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

[Gauss]

Здравствуйте, у меня проблема возникла с кодом ,если кто может помогите или подскажите как мне сделать. Мне надо в мемо1 писать текст на юникоде азербайджанскими буквами (их аскии коды я в тесте кода привел) и чтоб при нажатии на бутон в мемо2 было соответсвие с русскими буквами. (для ввода азерб-их букв под юникод в дельфи я использую Тнт-юникод компоненты, это думаю не имеет существенного влияния). Код вроде верный, да вот почему то не срабатывает

unit DMUnit;

interface

uses
  SysUtils, Classes, Dialogs;

type
  TDM = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
     function sr(s:Char): string;
     procedure reader;
  end;

var
  DM: TDM;

implementation

uses MainUnit;

{$R *.dfm}

function TDM.sr(s:Char): string;
begin
  case s of
#81: sr:='й';
#87: sr:='ц';
#69: sr:='у';
#82: sr:='к';
#84: sr:='е';
#89: sr:='н';
#85: sr:='г';
#73: sr:='ш';
#79: sr:='щ';
#80: sr:='з';
#219: sr:='х';
#221: sr:='ъ';
#65: sr:='ф';
#83: sr:='ы';
#68: sr:='в';
#70: sr:='а';
#71: sr:='п';
#72: sr:='р';
#74: sr:='о';
#75: sr:='л';
#76: sr:='д';
#186: sr:='ж';
#192: sr:='э';
#90: sr:='я';
#88: sr:='ч';
#67: sr:='с';
#86: sr:='м';
#66: sr:='и';
#78: sr:='т';
#77: sr:='ь';
#188: sr:='б';
#190: sr:='ю';
#191: sr:='.';
  end;
end;

procedure TDM.reader;
var
 temp: string;
    i: byte;
begin
    temp := MainForm.memo1.Text;
  for i:=1 to length(temp) do
    begin
    MainForm.Memo2.Text := MainForm.Memo2.Text + sr(temp[i]);
        end;
end;

end.

[alexBlack]

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

Мне надо в мемо1 писать текст на юникоде азербайджанскими буквами (их аскии коды я в тесте кода привел)

Если Unicode, то символу соответствует 2 байта.

Для начала нужно посмотреть, а что в MainForm.memo1.Text;
Можно, например, забить один азерб. символ и посмотреть чему =
MainForm.memo1.Text.

А код, который приведен, транслирует латинские символы в русские.

[Gauss]

alexBlack, извиняюсь если я не правильно выразился.
Дело в том, что я сам записываю в мемо1 на азерб-ом текст ,затем нажимаю на бутон и в мемо2 должен отобразится текст русскими буквами, который я сопостваил в Case посимвольно. Вот это не получается, я ваще не могу вникнуть, так как нуль реакции при нажатии.
А проверку для 1-го символа я делал! срабатывает! Точнее не так срабатывает.
Я уже в самом оклике бутона пишу первод кода для 1-го символа и он мне его русский вариант пишет, например это он нормально выводит =>

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]

Нуль в смысле в memo2 вообще ничего непоявляется ?
тогда в sr пропущено

else
sr := s

в memo1 текст на азерб. как ? меняя charSet шрифта ? Тогда он просто отображается в другом виде, а код символа как был так и есть.

Попробуй пройти в пошаговом режиме процедуру sr. Попадаешь в нее вообще ? Какой код передается в параметре ? Если он в case ?

[Gauss]

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

Нуль в смысле в memo2 вообще ничего непоявляется ?
тогда в sr пропущено

else
sr := s

в memo1 текст на азерб. как ? меняя charSet шрифта ? Тогда он просто отображается в другом виде, а код символа как был так и есть.

Попробуй пройти в пошаговом режиме процедуру sr. Попадаешь в нее вообще ? Какой код передается в параметре ? Если он в case ?

Да, в мемо2 ваще не появляется ничего.
В мемо1 я пишу текст на азерб-ом, просто меняю раскладку клавиатуры на азерб-ий и всё. А обычный мемо (дельфийский) не поддерживает юникод для азерб-их букв, я использую Тнт-компоненты (TntMemo1,Tntmemo2,...)
Я ТОЖЕ ХОЧУ пошагово проверить, вот это меня и бесит что не получается этого сделать из-за Тнт-компонентов, как нжимаю Ф7 сразу идет проверка кодов самих Тнт-компонетнов которые у меня на форме. открываются их модули, может можно их как то миновать я незнаю.

[alexBlack]

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

например это он нормально выводит =>

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;

Если это работает, остается проверить как в memo1 хранится азерб. текст.

Поставиь прерывание на temp := MainForm.memo1.Text;
и посмотри ORD(temp[1])

Я ТОЖЕ ХОЧУ пошагово проверить, вот это меня и бесит что не получается этого сделать из-за Тнт-компонентов, как нжимаю Ф7 сразу идет проверка кодов самих Тнт-компонетнов которые у меня на форме. открываются их модули, может можно их как то миновать я незнаю.

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

а else все-таки пропущено. Если поставишь текст появится

[Gauss]

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

а else все-таки пропущено. Если поставишь текст появится

Ок, это сделаю щас.
А else где мне надо поставить?

[alexBlack]

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

А else где мне надо поставить?

case s of  
 ...
#191: sr:='.';   
 else 
      sr := s
  end;

[Gauss]

Else потсавил в функции sr, текст появился после нажатия на бутон, только появились не русские буквы а английские символы.

[alexBlack]

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

А что с пошаговым прохождением ? какие коды передаются в sr ?