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

[Gauss]

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

В первой строке мы получим 1, так как введен 1 символ, во втором месаже он дает его код, как до этого(113, 117, ..., только 117 и некоторые встречаются повторно). А если символ двухбайтовый, то коды следует изменить соответсвенно?

[alexBlack]

посмотри пост #20

[Gauss]

Да, да

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

вот с этим уже другие коды получаются, я их тоже потом проверю. Думаю должно получится.

Еще раз очень благодарен!

[Gauss]

Большое спасибо alexBlack всё получилось! Вот, выкладываю код, пусть пользуються все, у кого есть такие проблемы!

unit DMUnit;

interface

uses
  SysUtils, Classes, Dialogs;

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

var
  DM: TDM;

implementation

uses MainUnit;

{$R *.dfm}

function TDM.sr(s:WideChar): string;
begin
  case s of
 {Коды для азерб-их букв с учетом компонентов TNT-Unicode}
#113: sr:='й';
#252: sr:='ц';
#101: sr:='у';
#114: sr:='к';
#116: sr:='е';
#121: sr:='н';
#117: sr:='г';
#105: sr:='ш';
#111: sr:='щ';
#112: sr:='з';
#246: sr:='х';
#287: sr:='ъ';
#97: sr:='ф';
#115: sr:='ы';
#100: sr:='в';
#102: sr:='а';
#103: sr:='п';
#104: sr:='р';
#106: sr:='о';
#107: sr:='л';
#108: sr:='д';
#305: sr:='ж';
#601: sr:='э';
#122: sr:='я';
#120: sr:='ч';
#99: sr:='с';
#118: sr:='м';
#98: sr:='и';
#110: sr:='т';
#109: sr:='ь';
#231: sr:='б';
#351: sr:='ю';
#46: sr:='.';
     else sr:=s;
  end;
end;

procedure TDM.reader;
var
 temp: wideString;
        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.