Несколько условий выбора

@Oro4imaru · Регистрация: 18.06.2010

Author24 — интернет-сервис помощи студентам

Добрый день, как реализовать несколько условий выбора? - к примеру дано 5 условий, при выполнении или невыполнении какого-либо из них выполняется определенное действие

if Edit6.Text='0' or Edit2.Text:='' or
Edit3.Text:='' or Edit4.Text:='' or Edit5.Text:=''
then
begin
WriteTest:=false ;
end

else
WriteTest;

Длефи ругается - пишет operator not applicable to this operand type либо variable required

И еще - writetest у меня это процедура описанная в модуле, как запретить ее выполнение при удовлетворении какого либо из условий?
пробовал через case только вот нешарю как сделать запрет на выполнение Writetest?

case Запрет of
1:Edit6.Text='0'
2:Edit2.Text=''
3:Edit3.Text=''
4:Edit4.Text=''
5:Edit5.Text=''
else
....
end

@yamilramilev · 05.11.2010, 11:13

Delphi

if (Edit6.Text='0') or (Edit2.Text='') or
(Edit3.Text='') or (Edit4.Text='') or (Edit5.Text='') 
then  WriteTest:=false 
else WriteTest:=true;

При нескольких условиях их нужно заключать в скобки, и пишут просто равно =, а не опретор присваивания :=

@Oro4imaru 0 / 0 / 0 Регистрация: 18.06.2010 Сообщений: 41
		1
	Несколько условий выбора 05.11.2010, 11:05. Показов 4051. Ответов 1 Метки нет (Все метки) Добрый день, как реализовать несколько условий выбора? - к примеру дано 5 условий, при выполнении или невыполнении какого-либо из них выполняется определенное действие if Edit6.Text='0' or Edit2.Text:='' or Edit3.Text:='' or Edit4.Text:='' or Edit5.Text:='' then begin WriteTest:=false ; end else WriteTest; Длефи ругается - пишет operator not applicable to this operand type либо variable required И еще - writetest у меня это процедура описанная в модуле, как запретить ее выполнение при удовлетворении какого либо из условий? пробовал через case только вот нешарю как сделать запрет на выполнение Writetest? case Запрет of 1:Edit6.Text='0' 2:Edit2.Text='' 3:Edit3.Text='' 4:Edit4.Text='' 5:Edit5.Text='' else .... end 0

	05.11.2010, 11:13

Несколько условий выбора

Решение