Als ich versuchte, der Beschreibung zu folgen, hat mein Gehirn ein paar Extra-Windungen bekommen. Ich hoffe das macht mich auch klüger.
Willst Du prüfen, ob ein Tick-Tack-Toe Sieg erfolgt ist?
Ich kann dem ganzen Bedingungs-Wirrwarr anhand der Beschreibung noch nicht ganz folgen, versuche es aber gleich nochmal.
PS: ...und wieso manchmal Edit.hint statt Edit.text?
Delphi-Quellcode:
if form1.edit1.hint='0' then
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
if form1.edit2.hint='0' then
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
if form1.edit3.text='0' then
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
showmessage('Die Bedingungen wurden erfüllt')
else
showmessage('Die Bedingungen wurden erfüllt');
.
Mit Einrückung sieht man, das hier eine ganze Menge erfüllt sein muss, wenn Edit1.hint <> '0'. Kann es sein, das Du garnicht alle Bedingungen voneinander abhängig haben wolltest?