| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
кто знает как это написать
UNI2002 © (2002-11-30 16:10:00)помогите кто знает как это написать !!!
1. Как сделать активным MEMO при загрузке программы
2. В процессе работы программы записываю предложение в строке в MEMO и ставлю точку(.).
как выполнить некую процедуру после проставления точки (.) и нажатия ENTER?
то есть чтобы нажатие на enter вызывало процедуру только после точки в конце предложения а не в любой момент?
самое главное должна вызываться одна из 2-ух процедур в зависимости от того на каком языке(английский, русский) было написано предложение в строке MEMO.
UNI2002 (2002-11-30 20:21:00) [1]Спасибо dber
Dber (2002-11-30 16:25:00) [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 ...
ну конечно там в множество нужно добавиь и знаки препинания
Dber (2002-11-30 16:22:00) [3]1. Сделай у него свойство taborder=0
2. В событии OnKeyPressed
if (key=#13)AND(memo1.text[length(memo1.text)]=".")
then...
А насчет последнего можно просто проверять символы строки на включение в ["a".."z","A".."Z"]
| |
