прописать дополнительное условие (if, then,else) delphi

[tarasov_88]

Весь день голову себе ломаю, не могу прописать в свой код дополнительное условие.

if TryStrToDate((Components[j] as TEdit).Text,d)
            and (d - date <= 14)  then 

            for i:=0 to Application.MainForm.ComponentCount-1 do
           if (Application.MainForm.Components[i].Name = 'Panel1')  then
           (Application.MainForm.Components[i] as TPanel).Color:=clRed;

в общем если условие выполняется, то меняется на главной форме цвет панели на красный, если не выполняется, то нужно поменять на белый,если просто прописываю:

if TryStrToDate((Components[j] as TEdit).Text,d)
            and (d - date <= 14)  then

            for i:=0 to Application.MainForm.ComponentCount-1 do
           if (Application.MainForm.Components[i].Name = 'Panel1')  then
           (Application.MainForm.Components[i] as TPanel).Color:=clRed else
           (Application.MainForm.Components[i] as TPanel).Color:=clwindow

то не работает.
Помогите пожалуйста!

Или может быть можно как-то без перебора всех panel обратиться к именно к panel1 на главной форме? тогда,я думаю получится с этими условиями, просто не знаю как именно к panel1 без перебора обратиться.

В общем, нашел как обратиться к самой panel1 на главной форме:

TPanel(Application.MainForm.FindComponent('Panel1')).Color:=clred

но все равно не получается, в общем нужно чтоб одновременно с edit менялся цвет, вот полностью код:

procedure TForm2.FormCreate(Sender: TObject);
begin
  AssignFile(f, '1A.txt');
  ReSet(f);
  for j := 0 to ComponentCount -1  do
    if Components[j] is TEdit then
    begin
           ReadLn(f, H);
          (Components[j] as TEdit).Text:=H;

           if TryStrToDate((Components[j] as TEdit).Text,d)
           and (d - date <= 14)  then begin

           (Components[j] as TEdit).color:=clRed;
           TPanel(Application.MainForm.FindComponent('Panel1')).Color:=clred
           end
            else
            begin
           (Components[j] as TEdit).color:=clwindow;
           TPanel(Application.MainForm.FindComponent('Panel1')).Color:=cwindow
*end;
end;
  CloseFile(f);
end;

Он не работает, в частности последняя строка, где panel1 меняет цвет на белый.
как его грамотно оформить?

[SNUPY]

т.е. не работает? ругается на что-то или просто выполняется, но не меняет цвет?

[tarasov_88]

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

т.е. не работает? ругается на что-то или просто выполняется, но не меняет цвет?

не ругается, выполняется, точнее всегда выполняется, независимо от того выполнилось условие или нет. последняя строка должна выполняться, только в случае ELSE, но она выполняется в любом случае. блин сумбур какой-то(

В общем понял в чем причина: для него это условие всегда выполняется. Нужно поменять условие.
Как завязать чтоб менялся цвет panel1 на красный, если хотя бы один edit красный?

Как описать это условие?:

if хотя бы один Edit из всех edit красный then

[SNUPY]

ну тогда нужно пробежаться по всем Эдитам по форме в цикле и их проверить

[BDA]

Примерно так:

procedure TForm2.FormCreate(Sender: TObject);
var
t:boolean;
begin
  t:=false;
  AssignFile(f, '1A.txt');
  ReSet(f);
  for j := 0 to ComponentCount -1  do
    if Components[j] is TEdit then
    begin
           ReadLn(f, H);
          (Components[j] as TEdit).Text:=H;

           if TryStrToDate((Components[j] as TEdit).Text,d)
           and (d - date <= 14)  then
		   begin
		    (Components[j] as TEdit).color:=clRed;
			t:=true;
           end
           else
           (Components[j] as TEdit).color:=clwindow;
	end;
	if t then
		TPanel(Application.MainForm.FindComponent('Panel1')).Color:=clred;
  CloseFile(f);
end;

[tarasov_88]

BDA, огромное спасибо! все заработало!)