Скачать: CL | DM;

делаю программу для изготовления 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-сообщений, но не может преобразовать русские слова в латиницу.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c