кто знает как это написать

← →
UNI2002 (2002-11-30 16:10) [0]

помогите кто знает как это написать !!!

1. Как сделать активным MEMO при загрузке программы
2. В процессе работы программы записываю предложение в строке в MEMO и ставлю точку(.).
как выполнить некую процедуру после проставления точки (.) и нажатия ENTER?
то есть чтобы нажатие на enter вызывало процедуру только после точки в конце предложения а не в любой момент?
самое главное должна вызываться одна из 2-ух процедур в зависимости от того на каком языке(английский, русский) было написано предложение в строке MEMO.

← →
Dber (2002-11-30 16:22) [1]

1. Сделай у него свойство taborder=0
2. В событии OnKeyPressed
if (key=#13)AND(memo1.text[length(memo1.text)]=".")
then...
А насчет последнего можно просто проверять символы строки на включение в ["a".."z","A".."Z"]

← →
Dber (2002-11-30 16:25) [2]

А вдруг у тебя там один символ на русском?
Если все на английском, тогда
for i:=1 to length(memo1.lines[memo1.lines.count]) do
if memo1.lines[memo1.lines.count][i] in ["a".."z","A".."Z"]
then ...

ну конечно там в множество нужно добавиь и знаки препинания

← →
UNI2002 (2002-11-30 20:21) [3]

Спасибо dber

кто знает как это написать Найти похожие ветки