VPF::Translater ..По Срочнякам - Форум программистов

ShuVaS

Дата 6.1.2005, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 26.12.2004
Где: Севастополь

Репутация: нет
Всего: нет

Ну ты прям кулхацкер , блин !Сенкс всем

ShuVaS

Дата 6.1.2005, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 26.12.2004
Где: Севастополь

Репутация: нет
Всего: нет

И еще народ а как узнаьб кочличество символов в memo ???

Akella

Дата 6.1.2005, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

совсем забыл
используем так
Memo1.Text:=Translit(Memo2.Text);

_hunter

Дата 6.1.2005, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

Memo1.Text.Length()

--------------------

Tempora mutantur, et nos mutamur in illis...

Akella

Дата 6.1.2005, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

вообще то один топик - один вопрос (нужно правила форума читать)

итак

Цитата

И еще народ а как узнаьб кочличество символов в memo ???

Код


ShowMessage(IntToStr(Length(Memo1.Text)));

ShuVaS

Дата 6.1.2005, 17:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 26.12.2004
Где: Севастополь

Репутация: нет
Всего: нет

Извини и спасибо еще раз !Один из последних вопросов на ету тему - как из слова 'ghbdtn' получить что ето 'привет' .Еадо точно так же все делать или можно по легче как то - мне парень говорил что с помощь ord какого то.

з.ы. Кто нить пунто свитчер юзает ?

Akella

Дата 6.1.2005, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата

как из слова 'ghbdtn' получить что ето 'привет'

легко делаешь такую же функцию, только в этом куске(ниже) меняешь как тебе хочеться,
а именно: смотри на клавку и меняй

Код


'Q': sym2 := 'К';
'W': sym2 := 'В';
'E': sym2 := 'Е';
'R': sym2 := 'Р';
'T': sym2 := 'Т';
'Y': sym2 := 'Й';
'U': sym2 := 'У';
'I': sym2 := 'И';
'O': sym2 := 'О';
'P': sym2 := 'П';
'A': sym2 := 'А';
'S': sym2 := 'С';
'D': sym2 := 'Д';
'F': sym2 := 'Ф';
'G': sym2 := 'Г';
'H': sym2 := 'Х';
'J': sym2 := 'Ж';
'K': sym2 := 'К';
'L': sym2 := 'Л';
'Z': sym2 := 'З';
'X': sym2 := 'КС';
'C': sym2 := 'Ц';
'V': sym2 := 'В';
'B': sym2 := 'Б';
'N': sym2 := 'Н';
'M': sym2 := 'М';
'q': sym2 := 'к';
'w': sym2 := 'в';
'e': sym2 := 'е';
'r': sym2 := 'р';
't': sym2 := 'т';
'y': sym2 := 'й';
'u': sym2 := 'у';
'i': sym2 := 'и';
'o': sym2 := 'о';
'p': sym2 := 'п';
'a': sym2 := 'а';
's': sym2 := 'с';
'd': sym2 := 'д';
'f': sym2 := 'ф';
'g': sym2 := 'г';
'h': sym2 := 'х';
'j': sym2 := 'ж';
'k': sym2 := 'к';
'l': sym2 := 'л';
'z': sym2 := 'з';
'x': sym2 := 'кс';
'c': sym2 := 'ц';
'v': sym2 := 'в';
'b': sym2 := 'б';
'n': sym2 := 'н';
'm': sym2 := 'м';
'0': sym2 := '0';
'1': sym2 := '1';
'2': sym2:= '2';
'3': sym2 := '3';
'4': sym2 := '4';
'5': sym2 := '5';
'6': sym2 := '6';
'7': sym2 := '7';
'8': sym2 := '8';
'9': sym2 := '9';
' ': sym2 := ' ';

приблизительно так
из 'ghbdtn' получить что ето 'привет'

Код


'g': sym2 := 'п';
'h': sym2 := 'р';
'b': sym2 := 'и';
'd': sym2 := 'в';
't': sym2 := 'е';
'n': sym2 := 'т';

Это сообщение отредактировал(а) dsergey - 6.1.2005, 17:35

ShuVaS

Дата 6.1.2005, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 26.12.2004
Где: Севастополь

Репутация: нет
Всего: нет

спасибо огромное!

Dimannn

Дата 9.10.2005, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

По поводу sh. А что если при транслитеровке делать как нибудь так sh' исль юзеру надо, чтоб его правильно поняли, то он эту чёрточку поставит.
И обратно можно будет без проблем перевести.

PS. Можно интегрироваться с Вордом smile

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »