Poluchenie simvola v TMemo

← →
Alral © (2006-08-07 18:58) [0]

Kak mozno sdelat, chtobi pri vvode kakogo-nibud simvola v TMemo vivodilsja ne etot, a drugoi opredelennii simvol(skazem nazatie na lat. V vivodit russkuju B).

← →
clickmaker © (2006-08-07 18:59) [1]

OnKeyDown, key := ...

← →
Alral © (2006-08-07 19:05) [2]

Spasibo

← →
Alral © (2006-08-07 19:06) [3]

Tolko esli tam ne odin simvol, pri odnom simvole pojavljaetsja odin, a pri drugom-drugoi, kak togda?

← →
Alral © (2006-08-07 19:07) [4]

V obshem opredelit simvol, kotorii vvoditsja, i izmenit.

← →
Alral © (2006-08-07 19:29) [5]

Hotja... OnKeyPress, Case key of "X" : key:="x";.....end;end; Vse ravno spasibo za KeyPress

← →
Leonid Troyanovsky © (2006-08-07 19:31) [6]

> Alral © (07.08.06 19:07) [4]

> V obshem opredelit simvol, kotorii vvoditsja, i izmenit.

OnKeyPress?

--
Regards, LVT.

← →
Евгений К. © (2006-08-07 20:43) [7]

Можно так же обрабатывать событие Memo OnChange и тогда проверять вместо key, последний элемент строкового массива, но для проверки одного символа лучше использовать keypress.

← →
Alral © (2006-08-07 21:30) [8]

A sintaksis cherez Memo1.OnChange takoi poidet?

var a: integer; begin a:=Length(Memo1.Length); if Memo1.Text[a]="kakoi-to znak" then ......... end;

^
||

Takoi sintaksis korrektnii?

> Takoi sintaksis korrektnii?
>

Нет конечно. Никто не знает, что есть Memo1.Length :-(
А вот если вместо Memo1.Length написАть Memo1.Text, то синтаксис будет правильный. Но алгоритм сей - через ж..у :-)

Ты бы лучше сформулировал бы задачу, которую хочешь решить. Всем было бы меньше хлопот. :-)

> Takoi sintaksis korrektnii?

Delphi znaet otvet... Ti poprobui...

Poluchenie simvola v TMemo Найти похожие ветки