делаю программу для изготовления sms. Нужно чтобы введенный текст

← →
matrixxxx (2002-08-06 20:20) [0]

делаю программу для изготовления sms. Нужно чтобы введенный текст в мемо1 например ПРИВЕТ по нажатию батона в lebel.caption появлялось PRIVET , то есть каждая буква заменялась на похожую английскую а - а, б - b, у - y, х - h .......

← →
ZrenBy (2002-08-06 20:22) [1]

Не понял, что здесь сложного ?

← →
Polevi (2002-08-07 16:46) [2]

таблицу создай

← →
matrixxxx (2002-08-07 21:13) [3]

хорошо сказать, трудно сделать! Поможите исходным кодом!

← →
МИФИст (2002-08-07 22:42) [4]

Например, так, советую если не охото усложнять таблицу переводи символы все в заглавные, иначе таблица описания в 2 раза будет больше:

function Convert(Symb: Char): Char;
begin
case Ord(Symb) of
207: Result:="P";
240: Result:="r";
....
else
Result:=Symb;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Str1, Str2: String;
i: Integer;
begin
Str1:=Form1.Memo1.Text;
Str2:="";
for i:=1 to Length(Str1) do
Str2:=Str2+Convert(Str1[i]);
Form1.Memo1.Text:=Str2;
end;

← →
John Kayfolom (2002-08-19 14:51) [5]

Обычно sms гейты сами делают транслитерацию - нужно только в правильной кодировке им подсовывать мессагу. Или ты как раз гейт пишешь?

← →
Kaban (2002-08-19 14:58) [6]

Круто, человек в состоянии написать программу по отправке sms-сообщений, но не может преобразовать русские слова в латиницу.

делаю программу для изготовления sms. Нужно чтобы введенный текст Найти похожие ветки