Memo1 текст и таймер - Помощь студентам

Nice42ru · 12.12.2009, 11:51

Как сделать следующее:
Когда в Memo1 появляется текст например "Start" Memo1 запускает Timer1 (Enabled=True)

IT-man · 12.12.2009, 11:56

в Memo1KeyPress

Код:

if memo1.text = 'Start' then timer1.enabled:=true;

Nice42ru · 12.12.2009, 12:43

Это будет работать если там высветиться толко текст "Start" а если будет например "Nice Says: Start" то работать небудет?

Armorer · 12.12.2009, 13:18

Нет. В таком случае нужно сделать поиск по строке. Может помощь функция Pos. вот код который запустит таймер если в тексте есть слово Start, отдельно от других слов.
timer1.enabled := Pos(' '+memo1.text+' ', ' Start ') <> 0;

IT-man · 12.12.2009, 13:24

Цитата:

Это будет работать если там высветиться толко текст "Start"

условие

Цитата:

Когда в Memo1 появляется текст например "Start"

как просили так и сделал

Nice42ru · 12.12.2009, 18:01

Цитата:

Сообщение от Armorer

Нет. В таком случае нужно сделать поиск по строке. Может помощь функция Pos. вот код который запустит таймер если в тексте есть слово Start, отдельно от других слов.
timer1.enabled := Pos(' '+memo1.text+' ', ' Start ') <> 0;

А на какой разработчик кидать это или вообще где вставить? Ато когда я посылаю сообщение с сервера на клиент в клиенте в Memo1 отображается это сообщение посылаю слово Start а таймер всё равно невключается что делать?

goblinyara · 12.12.2009, 18:06

в MemoKeyPress ставите код:

Код:

if Pos(' '+memo1.text+' ', ' Start ') <> 0 then timer1.enabled:=true;

ну или тот, который выше привёл Armorer

Neeter · 12.12.2009, 18:10

Цитата:

А на какой разработчик кидать это или вообще где вставить? Ато когда я посылаю сообщение с сервера на клиент в клиенте в Memo1 отображается это сообщение посылаю слово Start а таймер всё равно невключается что делать?

В коде аргументы местами поменяли, писать надо так:

Код:

timer1.enabled := Pos('Start', memo1.text) <> 0;

А добавляйте в onChange.
Только в коде проверяется весь текст Memo. Но если вы отправите себе команду stop, а в Memo уже будет фраза start, то таймер все равно будет включен. Так что проверяйте последнюю строку Memo:

Код:

timer1.enabled := Pos('Start', memo1.lines[memo1.lines.count - 1]) <> 0;

Nice42ru · 12.12.2009, 18:35

Всем спасибо!!! Вопрос решился! Тему можно закрыть!

12.12.2009, 11:51	#1
Nice42ru Форумчанин Регистрация: 25.10.2009 Сообщений: 131	Memo1 текст и таймер Как сделать следующее: Когда в Memo1 появляется текст например "Start" Memo1 запускает Timer1 (Enabled=True)

12.12.2009, 13:18	#4
Armorer Подтвердите свой е-майл Регистрация: 07.04.2007 Сообщений: 120	Нет. В таком случае нужно сделать поиск по строке. Может помощь функция Pos. вот код который запустит таймер если в тексте есть слово Start, отдельно от других слов. timer1.enabled := Pos(' '+memo1.text+' ', ' Start ') <> 0; Последний раз редактировалось Armorer; 12.12.2009 в 13:23.

12.12.2009, 18:06	#7
goblinyara Форумчанин Регистрация: 02.01.2009 Сообщений: 340	в MemoKeyPress ставите код: Код: `if Pos(' '+memo1.text+' ', ' Start ') <> 0 then timer1.enabled:=true;` ну или тот, который выше привёл Armorer DelphiWorld 6. Скачай, поставь, и будет тебе счастье=) Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вопрос о Memo1 [помогите с кодом]	kakawkin	Общие вопросы Delphi	2	01.12.2009 14:10
ScrollBar совместно с Memo1	Rebel123	Компоненты Delphi	4	24.08.2009 00:04
Переход на новую строку в Memo1	)Игнат(	Общие вопросы Delphi	2	07.07.2009 20:31
Передача данных из Memo1 в Memo2	DeKot	Общие вопросы Delphi	8	26.11.2008 15:55
memo1.lines как сделать.......	diznt	Помощь студентам	2	04.09.2008 17:13

12.12.2009, 12:43	#3
Nice42ru Форумчанин Регистрация: 25.10.2009 Сообщений: 131	Это будет работать если там высветиться толко текст "Start" а если будет например "Nice Says: Start" то работать небудет?

12.12.2009, 18:35	#9
Nice42ru Форумчанин Регистрация: 25.10.2009 Сообщений: 131	Всем спасибо!!! Вопрос решился! Тему можно закрыть!