Условия и их выполнение

[kta87]

Подскажите написание данного процедуры:
Условие:

if (ComBoBox1.ItemIndex = -1) and (ComBoBox1.Enabled = True) then showMessage('Текст...');
 if (ComBoBox2.ItemIndex = -1) and (ComBoBox2.Enabled = True) then showMessage('Текст...');
 if (ComBoBox3.ItemIndex = -1) and (ComBoBox3.Enabled = True) then showMessage('Текст...');
 if (ComBoBox4.ItemIndex = -1) and (ComBoBox4.Enabled = True) then showMessage('Текст...');
 if (ComBoBox5.ItemIndex = -1) and (ComBoBox5.Enabled = True) then showMessage('Текст...');
 if (Edit1.Enabled = True) and (Edit1.Text = '') then showMessage('Текст...');
 if (Edit2.Enabled = True) and (Edit2.Text = '') then showMessage('Текст...);
 if (Edit3.Enabled = True) and (Edit3.Text = '') then showMessage('Текст...');
 if (Edit4.Enabled = True) and (Edit4.Text = '') then showMessage('Текст...');
 if (Edit5.Enabled = True) and (Edit5.Text = '') then showMessage('Текст...');
 if (Edit6.Enabled = True) and (Edit6.Text = '') then showMessage('Текст...');
 if Edit7.Text = '' then showMessage('Текст...');
begin

а дальше идет действие типа if хотя бы одно из перечисленного истина , then вернуться к форме1 else
begin

Код основной программы

end;

[Marsel737]

var
  FReturn: boolean = false;

...

if (ComBoBox1.ItemIndex = -1) and (ComBoBox1.Enabled = True) then 
begin
  showMessage('Текст...');
  FReturn := true;
end;

if (ComBoBox2.ItemIndex = -1) and (ComBoBox2.Enabled = True) then 
begin
  showMessage('Текст...');
  FReturn := true;
end;

...

if FReturn = true then
begin
  Form1.Show;
  Form2.Hide;
end;

или в цикле:

var
  FReturn: boolean = false;
...
for i := 1 to 5 do
begin
  if ((FindComponent('ComboBox' + IntToStr(i)) as TComboBox).ItemIndex = -1)  and
     ((FindComponent('ComboBox' + IntToStr(i)) as TComboBox).Enabled = true) then
    begin
      showMessage('Текст...');
      FReturn := true;
    end;
end;

for i := 1 to 5 do
begin
  if ((FindComponent('Edit' + IntToStr(i)) as TEdit).Enabled = true) and
     ((FindComponent('Edit' + IntToStr(i)) as TEdit).Text = '') then
    begin
      showMessage('Текст...');
      FReturn := true;
    end;
end;

if FReturn = true then
begin
  Form1.Show;
  Form2.Hide;
end;

[kta87]

У меня нет Form2

...
Form2.Hide;
...

Или я чего то недопонимаю?

[Marsel737]

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

а дальше идет действие типа if хотя бы одно из перечисленного истина , then вернуться к форме1 else
begin

Код основной программы

end;

Как тогда это понимать? Я так понял, что нужно с одной формы перейти на другую. Поэтому какой вопрос - такой и ответ. Чётче вопрос формулировать нужно.

[kta87]

Marsel737, вот так

...
FReturn := true;
 end;
 if FReturn = true then Form1.Show else
begin
тут формулы для расчета;
end;

Все компилируется, но при нажатии кнопки вот эта часть

begin
тут формулы для расчета;
end;

не работает! ?

[Marsel737]

FReturn := true;
 end;
 if FReturn = true then Form1.Show else
begin
тут формулы для расчета;
end;

Сам присваиваеш к FReturn true, а потом удивляешся. У тебя формуля для расчёта будут выполняться толко когда FReturn = false;

Кинь исходник (без экзешника), я подправлю

[kta87]

Ну так как исправить то ?

[Marsel737]

var
  FReturn: boolean = false;
...
begin
for i := 1 to 5 do
begin
  if ((FindComponent('ComboBox' + IntToStr(i)) as TComboBox).ItemIndex = -1)  and
     ((FindComponent('ComboBox' + IntToStr(i)) as TComboBox).Enabled = true) then
    begin
      showMessage('Текст...');
      FReturn := true;
    end;
end;

for i := 1 to 5 do
begin
  if ((FindComponent('Edit' + IntToStr(i)) as TEdit).Enabled = true) and
     ((FindComponent('Edit' + IntToStr(i)) as TEdit).Text = '') then
    begin
      showMessage('Текст...');
      FReturn := true;
    end;
end;

if FReturn = true then 
  Form1.Show 
else
  begin
    тут формулы для расчета;
  end;
end;

[kta87]

+10 Marsel737