Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.02.2012, 12:04   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,897
По умолчанию if not Pos

Запутался. При любом раскладе Good
Код:
if not Pos('\gamename\', txt) <> 0 then ShowMessage('Good') else ShowMessage('Bad');
Shouldercannon вне форума Ответить с цитированием
Старый 01.02.2012, 12:14   #2
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Код:
if not Pos('\gamename\', txt)=0 then ShowMessage('Good') else ShowMessage('Bad');
так поробуйте
Кольша вне форума Ответить с цитированием
Старый 01.02.2012, 12:15   #3
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

а зачем вы not пишите?
SERG1980 вне форума Ответить с цитированием
Старый 01.02.2012, 12:33   #4
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,897
По умолчанию

Цитата:
Сообщение от Кольша Посмотреть сообщение
Код:
if not Pos('\gamename\', txt)=0 then ShowMessage('Good') else ShowMessage('Bad');
так поробуйте
Пробовал все знаки (<, >, =) и никак

Цитата:
Сообщение от SERG1980 Посмотреть сообщение
а зачем вы not пишите?
Условие этого требует. Если такая та позиция не найден, то приедпринимаем соответсвующие действия.
Shouldercannon вне форума Ответить с цитированием
Старый 01.02.2012, 12:48   #5
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

if Pos('\gamename\', txt)>0 then ShowMessage('Good') else ShowMessage('Bad');
иначе я бессилен
Кольша вне форума Ответить с цитированием
Старый 01.02.2012, 12:49   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Код:
if Pos('\gamename\', txt)=0 then ...
или для супер-пупер, что тоже самое
if not (Pos('\gamename\',txt)<>0) then ...
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 01.02.2012, 12:49   #7
TorrentTor
Форумчанин
 
Аватар для TorrentTor
 
Регистрация: 02.11.2011
Сообщений: 105
По умолчанию

Код:
if Pos('\gamename\', txt) = 0 then ShowMessage('Good') else ShowMessage('Bad');
TorrentTor вне форума Ответить с цитированием
Старый 01.02.2012, 13:07   #8
Aliens_wolfs
Форумчанин
 
Регистрация: 16.12.2009
Сообщений: 902
По умолчанию

Цитата:
if Pos('\gamename\', txt) = 0
= 0 значит ненайдено
<> 0 значит найдено

Еще можно так, регистр букв в поисковом значении опустить, что бы не реагировал на регистр букв если в полученной переменной txt меняется регистр.

Код:
if Pos('\gamename\', AnsiLowerCase(txt)) <> 0 then 
ShowMessage('Good') 
else 
ShowMessage('Bad');

Последний раз редактировалось Aliens_wolfs; 01.02.2012 в 13:38.
Aliens_wolfs вне форума Ответить с цитированием
Старый 01.02.2012, 15:15   #9
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,761
По умолчанию

Pos не возвращает булевый результат, поэтому not тут не подходит, проверяй его как integer;
FaTaL вне форума Ответить с цитированием
Старый 01.02.2012, 15:48   #10
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,897
По умолчанию

Код:
if not (Pos('\gamename\',txt) <> 0) then ;
Хватило вполне.
Shouldercannon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
функция Pos в Delphi Fantom Помощь студентам 8 04.05.2012 18:56
Функия POS propoker23 Общие вопросы Delphi 2 18.01.2012 01:13
Функція - Pos(s,s1) серёга09 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 14.01.2011 01:15
Ошибка в POS KREGI Общие вопросы Delphi 31 08.12.2009 00:28