[whizzkey]

Всем добрый день, подскажите каким образом реализуется множественный выбор в делфи? Т.е. дано к примеру 5 условий - когда какое либо из условий выполняется - происходит определенное действие
Я делаю вот так

Код:

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

на что делфи мне пишет operator not applicable to this operand type либо variable requared

[ryderx34]

При использовании or пиши сравнения в скобках:

Код:

if (Edit1.Text='text 1') or (Edit2.Text='text 2') or (Edit3.Text='text 3') then

И строки не сравниваются с числами:

Код:

Edit6.Text=0 // неправильно

[whizzkey]

Сообщение от ryderx34

И строки не сравниваются с числами:

Имеется ввиду Edit6.Text='0' значение Edit'a равное 0
А как можно сделать следующее?? - чтобы помимо сравнения выводилось сообщение по каждому из edit'ов что то из типа 'Введите текст в Edit'

Код:

If (Edit6.Text=0, Showmessage='Введите текст в Edit') or...end

ЗЫ writetest у меня процедура , описанная в модуле, как запретить ее выполнение при удовлетворении одного из условий?
writetest:=false; - не работает

[ryderx34]

Не совсем понял о чём речь, но попробую

Код:

// проверяется наличие введённого текста:
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') then
  ShowMessage('Введите текст в каждый Edit') // если что-то не введено выводится сообщение
else
  WriteTest; // если всё введено, то вызывается процедура WriteTest
end;

это нужно?

[whizzkey]

Сообщение от ryderx34

Не совсем понял о чём речь, но попробую

я видимо криво обьяснил - ладно покажу кодом

Код:

if (Edit1.Text='') "<-- Месссадж введите тото-тото в Edit1" 
or (Edit2.Text='') "<--Месссадж введите тото-тото в Edit2"

почему хочу сделать чтобы было по каждому едиту в отдельности? потомучто Edit1 - содержит только числовые значения, Edit2 - строковые

[TOJluK]

Код:

if edit1.text = '' then
   showmessage('караул')
else 
  if edit2.text = '' then
     showmessage('ыыы')
 

[PaHaNjkee]

после второго showmessege'а ; не забудьте

[whizzkey]

Сообщение от TOJluK

Код:

if edit1.text = '' then
   showmessage('караул')
else 
  if edit2.text = '' then
     showmessage('ыыы')
 

так то и я могу=)) я просто хотел задействовать OR чтобы было меньше писанины

[SerginhoLD]

пробежаться по компонентам, посмотреть какие edit'ы пусты, и вывести showmessage

[Electronic_Arts]

Что бы мало было писанины надо чтоб эти Edit -ы у тебя были нумерованы по очереди...это раз
а вот и код

Код:

var
ed: Tcomponent;
i: integer;
begin
 for i := 1 to 10 do
 begin
   ed:=FindComponent('Edit'+inttostr(i));
   if ed <> nil then
   begin
     if (ed as TEdit).Text='' then
     showmessage((ed as TEdit).Name + ' Пустой');
   end;
 end;
end;