Цитата(Klose @ 14.8.2006, 23:14  ) | | Жаль , что он на момент нажатия. |
Это потому, что
| Цитата(Klose @ 14.8.2006, 23:14 ) | | Зато ":" и ":" - одинаковые |
Многое зависит от момента, в который тебе необходимо получить из набора символов "byajhvfnbrf" слово "информатика". Вот простой пример, реализующий эти действия в момент нажатия:
| Код |
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
#121: key:=#237;
#97: key:=#244;
#106: key:=#238;
#104: key:=#240;
#118: key:=#236;
#102: key:=#224;
#110: key:=#242;
#98: key:=#232;
#114: key:=#234;
end;
end;
|
Если же в данный пример занести полный перечень кодов символов, которые необходимо переводить, а так же добавить проверку типа: "Если такая-то галочка установлена, то производи замену кодов", то получишь полноценный обработчик.
В случае, когда необходимо производить замену уже набранных символов, то пробегаешь по строке и производишь проверку с заменой кода типа:
| Код |
for i:=1 to Length(s1) do
if ord(s1[i]) = 121 then
s1[i]:=char(237);
|
|
