Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

Kaban (2002-08-19 14:58:00) [1]
Круто, человек в состоянии написать программу по отправке sms-сообщений, но не может преобразовать русские слова в латиницу.

John Kayfolom (2002-08-19 14:51:00) [2]
Обычно sms гейты сами делают транслитерацию - нужно только в правильной кодировке им подсовывать мессагу. Или ты как раз гейт пишешь?

МИФИст (2002-08-07 22:42:00) [3]
Например, так, советую если не охото усложнять таблицу переводи символы все в заглавные, иначе таблица описания в 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;

matrixxxx (2002-08-07 21:13:00) [4]
хорошо сказать, трудно сделать! Поможите исходным кодом!

Polevi (2002-08-07 16:46:00) [5]
таблицу создай

ZrenBy (2002-08-06 20:22:00) [6]
Не понял, что здесь сложного ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »