Проблема с кодировками, шрифтами..

[Gauss]

У меня не получается результат по этой программе

Я думаю, может нужно еще константу взять и там описать коды всех азерб-их букв??

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

[Gauss]

Думаю проблема вот в чём. Имеется код

Const
Rus: array [0..32] of Char = (#233,#246,#243,#234,#229,#237,#227 ,#248,#249,#231,#245,#250,#244,#251 ,#226,#224,#239,#240,#238,#235,#228 ,#230,#253,#255,#247,#241,#236,#232 ,#242,#252,#225,#254,#46);
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
i, j: Integer;
begin
s := Memo1.Text;
for i := 1 to Length (s) do begin
if ord (s[i]) > 127 then
s[i] := Rus[ord (s[i])];
end;
Memo2.Text := s;
end;

end.

Но прога после прогона не пишет русские буквы в мемо2. В чем то я ошибся?

[mihali4]

В чем то я ошибся?

1. Rus: array [0..32]
2. if ord (s[i]) > 127 then
s[i] := Rus[ord (s[i])];

[Gauss]

Ясно, спасибо за помощь. Буду пытатся исправлять и продвигатся)