Что-то вроде транслитератора.
Страницы:
<
1
2
>
Gauss © (2008-02-22 15:11:00)
Всем прива! Значит у меня возникла такая проблема:
Имеется форма, а на ней Memo1,Memo2, and Button1. Мне нужно,
чтобы после прогона я записывал текст в Memo1 (записывал текс на
азербайджанском языке, под юникод, как обычно) нажимал на кнопку и
в Memo2 тот же текст отображался русскими буквами СООТВЕТСТВЕННО.
Т.е. имелось соответствие между буквами руссокого алфавита и
азерб-ми. Если вас затрудняют азерб-ие буквы, то преставьте на их
месте что то другое, какие то символы например.
А именно код у меня вышел приблизительно такой
var
Form1: TForm1;
Const
Az: array [0..3] of Char =
(#252,#101,#105,#63); {Аскии Коды для азербайд-их букв, данные
приведенные тут просто примеры}
Rus: array [0..5] of Char =
('й','ц','у','н','р','ж'); {русские буквы соответствующие выше
описанным буквам}
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
i: Integer;
begin
s := Memo1.Text;
for i := 1 to Length (s) do
if ord(s[i]) = ord(Az[i]) then
begin
s[i] := Rus[i];
end;
Memo2.Text := S;
end;
end.
Токо я знаю что я неправильно код написал, поэтому прошу
помощи, как мне сделать так, чтобы появилось мне нужное соответсвие
между этими символами и русскими буквами ???
Помогите пож-та)
Сергей М. (2008-02-22 15:15:00) [21]
> текст в Memo1.. под юникод
С каких пор TMemo умеет работать с Юникодом ?
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
