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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2009, 16:55   #1
extrimportal
Пользователь
 
Аватар для extrimportal
 
Регистрация: 07.04.2009
Сообщений: 26
Вопрос Немогу задать условие..

Помогите пожалуйста задать условие. Я пробовал но че то не получаеться...
Надо так: если "х" и "у" и "к" и "н" не равно memo1.lines[0] then ....
Пробовал (не пошло) так: if memo1.lines[0]<>x and memo1.lines[0]<>y and...
В программирование лузер так что не пинайте сильно...
extrimportal вне форума Ответить с цитированием
Старый 05.05.2009, 16:59   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Заключайте каждое выражение в скобки, а каждый символ - в кавычки:
Только так:
Код:
memo1.lines[0]
нельзя (в смысле, с символом сравнивать). Что вы хотите сделать?
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 05.05.2009, 17:00   #3
Rekky
Форумчанин
 
Аватар для Rekky
 
Регистрация: 14.01.2009
Сообщений: 312
По умолчанию

Возможно еще скобки нужно поставить! А что именно не пошло? Ошибку выдает или что?
Никому не поставить нас на колени! Мы лежали и будем лежать!
Rekky вне форума Ответить с цитированием
Старый 05.05.2009, 17:05   #4
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,751
По умолчанию

упс сглупил извините

Последний раз редактировалось vovk; 05.05.2009 в 17:18.
vovk вне форума Ответить с цитированием
Старый 05.05.2009, 17:44   #5
extrimportal
Пользователь
 
Аватар для extrimportal
 
Регистрация: 07.04.2009
Сообщений: 26
По умолчанию

Да не дописал..., х, у,н :стринг
Можно код готовый глянуть а то дальше ошибки...
extrimportal вне форума Ответить с цитированием
Старый 05.05.2009, 17:48   #6
crystalbit
ГОСТ 2.403-75
Пользователь
 
Аватар для crystalbit
 
Регистрация: 04.05.2009
Сообщений: 92
По умолчанию

if (memo1.lines.strings[0]<>x) and (memo1.lines.strings[0]<>y) and ...
а еще лучше задать например t:=memo1.lines.strings[0] и тогда if (t<>x) and (t<>y) and ... - это лучше тем, что к мемо мы обращаемя один раз, а не четыре или сколько там
мой скромный delphi блог
crystalbit вне форума Ответить с цитированием
Старый 05.05.2009, 17:49   #7
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

а можно узнать что именно хотите сделать?
если проверить наличие строки К в строке мемо то есть функция Pos
иначе поидее все верно, то есть строка Мемо не равна строке К
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 05.05.2009, 17:56   #8
extrimportal
Пользователь
 
Аватар для extrimportal
 
Регистрация: 07.04.2009
Сообщений: 26
По умолчанию

Незнаю говорю я лузер короче суть идея такова:
Перед этим всем есть код
Код:
if memo1.lines[0]=p then
 begin
  .....
 end;
if memo1.lines[0]=u then
 begin
  ......
 end;
if memo1.lines[0]=y then
 begin
  .....
 end;
И теперь думаю вставить это. А сделать нужно так, если мемо равно одному, другому, третьему, то выполняються разные действия, а если чему то другому, то тоже соотвественно будут свои действия. Я просто лучшего способа не придумал чем написать что мемо не ровно первому второму и т.д.
Есть еще способ это как то задать?

Последний раз редактировалось Stilet; 06.05.2009 в 11:23.
extrimportal вне форума Ответить с цитированием
Старый 05.05.2009, 18:54   #9
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

последний вариант самый провильный можно езе немного улучшить

Код:
if memo1.lines[0] = v1 then

else if memo1.lines[9] = v2 then

else if memo1.lines[0] = v3 then

else 

;
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось Stilet; 06.05.2009 в 11:23.
evg_m вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
немогу разобраться с БД tatarinKZ Помощь студентам 1 21.01.2009 14:35
Немогу написать условие на Dev-C++ (на цикл For) Ulis Помощь студентам 1 22.11.2008 13:43
Немогу решить задачу Санячос Общие вопросы Delphi 2 11.06.2008 15:35
Немогу установить GLSCENE !!!! UnD)eaD)Snake Gamedev - cоздание игр: Unity, OpenGL, DirectX 3 18.07.2007 14:06