Проверить много значений

[zotox]

И так нужно проверить много значений
Вот такой примерно структурой

if edit1.text='zzz' or edit2.text='455' or edit3.text='242' then
begin
........
end;

Но у меня значений таких много(мне это не удобно писать в if'е много значений)! можно ли как нибуть упростить проверку множества значений?

[NeshSoft]

Не обязательно в ручную писать, можно просто копировать

[roach1967]

Здесь скорее всего подойдёт перебор компонентов в цикле. Для этого можно создать два массива - в первом будут имена компонентов (в данном случае Edit1, Edit2, ...), во втором проверяемые значения. Если имена компонентов остаются теми-же, которые предложила Delphi, то их можно просто генерировать.
Проверка в таком случае выглядит так:

Flag:= true;
for i:= 1 to NumComponent do begin	// Цикл перебора всех компонентов Edit## от 1 до NumComponent
	// Znach - строковый массив с необходимыми значениями.
	// Можно задать двухмерным, тогда меняются условия совпадения.
	if TEdit('Edit' + IntToStr(i)).Text <> Znach[i] then Flag:= false; 
end;
if Flag then begin
	// Здесь код, исполняемый, когда содержимое Edit##.Text совпадает с заданными
end else begin
	// Если хоть одно значение не совпало
end;

Если имена компонентов другие, создаём строковый массив имён компонентов (NameComponent: array[1..NumComponent] as string[16]), и подставить в условие проверки:

if TEdit(NameComponent[i]).Text <> Znach[i] then Flag:= false;

Но мне кажется, что генерация имён удобнее.

[Plague]

например есть логический массив

var b:array[1..n]of boolean;

для OR

f:=false;
for i:=1 to n do
f:=f or b[i];

для AND

f:=true;
for i:=1 to n do
f:=f and b[i];

[Disel]

А как узнать в Edit1 введено что-то или нет?

[DM_bite]

А как узнать в Edit1 введено что-то или нет?

If Edit1.Text:='' then ...