|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2008, 15:31 | #1 |
Дружусь с Delphi
Пользователь Подтвердите свой е-майл
Регистрация: 02.05.2008
Сообщений: 33
|
помогите найти решение на Delphi
Люди, решаю задачу на делфи, простая она, но я то только учусь. Подскажите пожалуйста.
Условие. Даны символы с1, с2 ,... сn. Известно, что первый символ не может быть "!", но среди символов есть обязательно хоть один "!", кроме того должно вывести сообщение присутствуют или нет буквосочетания "но" или "он". У меня пока получилась ерунда так: procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s:=Edit1.Text; if pos ('!', s) > 0 and pos ('íî', s) or pos('îí',s) then Label2.Caption:='YES' else begin Label2.Caption:='No' end; end; end. Помогите пожалуйста. |
17.05.2008, 15:35 | #2 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
НичАво не понял.
Нужно просто определить есть ли встроке последовательность символов "но" и "он"? А что там про "!" знак?
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
17.05.2008, 15:51 | #3 |
Дружусь с Delphi
Пользователь Подтвердите свой е-майл
Регистрация: 02.05.2008
Сообщений: 33
|
Сначала нужно определить - присутствует ли "!" в строке символов или нет, но он не должен быть первым символом, но должен быть в этой строке. Потом уже программа начинает искать но или он в строке.
Последний раз редактировалось Katovski; 17.05.2008 в 15:52. Причина: дописать |
17.05.2008, 15:59 | #4 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Тогда так...
Код:
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
17.05.2008, 16:09 | #5 |
Дружусь с Delphi
Пользователь Подтвердите свой е-майл
Регистрация: 02.05.2008
Сообщений: 33
|
Спасибо, щас попробую
|
17.05.2008, 16:14 | #6 |
Дружусь с Delphi
Пользователь Подтвердите свой е-майл
Регистрация: 02.05.2008
Сообщений: 33
|
а вот почему то он ругается и говорит, что он и но не найдены, хотя в строке они присутствуют
ОЙ! все работаетет! вот спасибище! помогли! Последний раз редактировалось Katovski; 17.05.2008 в 16:16. Причина: ой |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужна ваша помощь, решение задач Delphi | Рената | Помощь студентам | 13 | 28.03.2011 17:24 |
Где найти Delphi | Nick93.93 | Софт | 8 | 01.09.2009 21:07 |
Помогите найти ошибку (Delphi) | Rigard | Помощь студентам | 4 | 23.07.2008 03:06 |
Решение нелинейного уровнения Delphi | Luska | Помощь студентам | 2 | 28.05.2007 17:40 |