Du hast keine Fehlerbeschreibung gepostet.
Aber vielleicht hilft schon eine passende Einrückung:
Delphi-Quellcode:
if form1.edit1.hint='0' then
begin
if (form1.edit4.text='0') and (form1.edit7.text='0') or
(form1.edit4.text='0') and (form1.edit7.text='1') or
(form1.edit4.text='1') and (form1.edit7.text='0') or
(form1.edit2.text='0') and (form1.edit3.text='0') or
(form1.edit2.text='0') and (form1.edit3.text='1') or
(form1.edit2.text='1') and (form1.edit3.text='0') then
begin
if form1.edit2.hint='0' then
begin
if (form1.edit5.text='0') and (form1.edit8.text='0') or
(form1.edit5.text='0') and (form1.edit8.text='1') or
(form1.edit5.text='1') and (form1.edit8.text='0') then
begin
if form1.edit3.text='0' then
begin
if (form1.edit2.text='0') and (form1.edit1.text='0') or
(form1.edit2.text='1') and (form1.edit1.text='0') or
(form1.edit2.text='0') and (form1.edit1.text='1') or
(form1.edit6.text='0') and (form1.edit9.text='0') or
(form1.edit6.text='1') and (form1.edit9.text='0') or
(form1.edit6.text='0') and (form1.edit9.text='1') then
begin
showmessage('Die Bedingungen wurden erfüllt');
end
else
begin
showmessage('Die Bedingungen wurden erfüllt');
end;
end;
end;
end;
end;
end;
P.S.: Du fragst zweimal einen Hint ab. Ist das gewollt?