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

Замена двух, трёх символов на один   Найти похожие ветки 

← →
mobwar   (2009-01-30 11:46) [0]

Добрый вам день.
Застрял на самом интересном месте.
Имею проблему с русской раскладкой и давно написал программу по типу транслита ру (на ней я и набираю в данный момент текст). Проблема в том что я использовал функцию OnKeyUp и StringReplace.
В данном случае, сделав опечатку я не имею возможности корректировать слово не стерев его, ибо при отпускании кнопки, каретка уходит в конец слова.
Сейчас заменил на такую функцию:
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key="G"then key:="Г";
end;
Всё супер, но как сделать замену двух или трёх символов типа ja=я ju=ю,
на  лету и при этом не гнать каретку в конец написанного.
Зарание спасибо за варианты.

---

← →
Anatoly Podgoretsky ©   (2009-01-30 11:51) [1]

> mobwar  (30.01.2009 11:46:00)  [0]

Delete/Insert

---

← →
mobwar   (2009-01-30 11:51) [2]

Ах да, забыл вам изначальный вариант показать, может кто посоветует...

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if GetKeyState(VK_SHIFT) < 0 then
 Memo1.Text:= StringReplace(Memo1.Text, "ЙО", "Ё",
                        [rfReplaceAll, rfIgnoreCase])
                        else
Memo1.Text:= StringReplace(Memo1.Text, "jo", "ё",
                        [rfReplaceAll, rfIgnoreCase]);
memo1.SelStart:=length(memo1.Text);
memo1.SetFocus;
end;

---

← →
clickmaker ©   (2009-01-30 12:52) [3]

> memo1.SelStart:=length(memo1.Text);

PrevSelStart := memo1.SelStart;
...
memo1.SelStart:=PrevSelStart + корректировка на длину замененного текста

---

← →
KSergey ©   (2009-01-30 13:08) [4]

Вообще-то по классике для подмены символов надо обрабатывать TWinControl.OnKeyPress.

Но раз стоит задача подменять не по одному символу, т.е. придется и длину строки и положение каретки корректировать, то лично я бы, чтобы ничего не напортачить и не искать обходные пути, сделал бы так: в OnKeyPress слал сам себе юзерской сообщение через PostMessage, а уже в нем фактически имея уже готовый полностью текст для подмен смотрел на положение каретки (SelStart) и левее нее любым желаемым образом менял символы в Memo. Во всяком случае тут уже руки будут полностью развязаны, в отличии от обработки стандартных сообщений, на которые система иногда затачивается реагировать определенным образом.

---

← →
mobwar   (2009-01-30 14:23) [5]

третий день уже не слезаю с компа :)
Мыслю уже плоско, может можно отследить предыдущую букву и нажимая следующую просто заменить?
Например если стоит буква й нажимая на а просто менялось на я...
Брр.. во всяком случае спасибо, есть информация к размышлению..

---

← →
Anatoly Podgoretsky ©   (2009-01-30 14:31) [6]

> mobwar  (30.01.2009 14:23:05)  [5]

KeyUp не возвращает символов (букв)

---

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

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



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