Условия не пашут... - Общие вопросы Delphi

FleXik · 14.06.2014, 14:30

Вобщем у меня еще одна проблема, использую регулярку TRegExpr и в ней делаю проверку на слова в переменной, но...

если делаю так, код не работает (я даже общие скобки добавлял, не помогает):

Код:

if (Pos('раз', stext)=0) or (Pos('два', stext)=0) or (Pos('три', stext)=0) or (stext>'') then

а вот так работает:

Код:

if (Pos('раз', stext)=0) then
if (Pos('два', stext)=0) then
if (Pos('три', stext)=0) then
if stext>'' then

как правильно составить код чтобы он выглядел красиво (как в первом примере) и чтобы работал?

FleXik · 14.06.2014, 14:34

поменял or на and и заработало... тупанул, проблему решил, тему закройте

Код:

if (Pos('раз', stext)=0) and (Pos('два', stext)=0) and (Pos('три', stext)=0) and (stext>'') then

eval · 14.06.2014, 15:05

а регексп то тут с какого боку?

FleXik · 14.06.2014, 15:08

Цитата:

а регексп то тут с какого боку?

забей..........

eval · 14.06.2014, 15:16

что забить?

XE5 · 14.06.2014, 15:48

Цитата:

что забить?

Гвоздь в стену.

FleXik · 14.06.2014, 15:49

Цитата:

Гвоздь в стену.

а лучше сразу в голову :D, модеры закройте тему, я же написал что сам решил проблему.

14.06.2014, 14:30	#1
FleXik Форумчанин Регистрация: 01.11.2012 Сообщений: 770	Условия не пашут... Вобщем у меня еще одна проблема, использую регулярку TRegExpr и в ней делаю проверку на слова в переменной, но... если делаю так, код не работает (я даже общие скобки добавлял, не помогает): Код: `if (Pos('раз', stext)=0) or (Pos('два', stext)=0) or (Pos('три', stext)=0) or (stext>'') then` а вот так работает: Код: `if (Pos('раз', stext)=0) then if (Pos('два', stext)=0) then if (Pos('три', stext)=0) then if stext>'' then` как правильно составить код чтобы он выглядел красиво (как в первом примере) и чтобы работал?

14.06.2014, 14:34	#2
FleXik Форумчанин Регистрация: 01.11.2012 Сообщений: 770	поменял or на and и заработало... тупанул, проблему решил, тему закройте Код: `if (Pos('раз', stext)=0) and (Pos('два', stext)=0) and (Pos('три', stext)=0) and (stext>'') then`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
условия	дружков	Microsoft Office Excel	4	06.01.2012 14:34
созданные формы в Бд не пашут	Lady Meri	БД в Delphi	4	02.05.2011 17:58
Условия if, then, else	SKS	Общие вопросы Delphi	5	24.03.2011 13:23
условия	glupayastudentka	Помощь студентам	7	25.06.2009 09:43
Не пашут программы	Yes!It's me!	Общие вопросы C/C++	1	14.03.2008 21:42

14.06.2014, 15:05	#3
eval Подтвердите свой е-майл Регистрация: 29.08.2012 Сообщений: 4,011	а регексп то тут с какого боку?

14.06.2014, 15:16	#5
eval Подтвердите свой е-майл Регистрация: 29.08.2012 Сообщений: 4,011	что забить?