Hallo ich brauche dringend Hilfe bei einem Programm bei mir. Das Programm soll folgendes überprüfen:
Wenn in edit3 eine 0 steht soll das programm herausfinden ob in edit2 und edit 1 entweder eine null steht oder in einem der beiden eine 1 und im anderen eine 0 oder ob das gleiche für edit6 und edit9 zutrifft anstatt für edit2 und edit1.
edit 1, 2 und 3 sollen so überprüft werden. Bei dem edit2 kann ja nur logischer weisse geprüft werden was in edit5 und edit8 steht.
hier das ist mein delphi code:
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');
end;
Es ist eine Datei angehängt von dem design des formulars.
Diese Zahlen die jetzt da eingetragen sind müssten zu einer ausgabe führen, weil in edit3 eine null ist und in edit6 und edit9 nicht jeweils eine 1 eingetragen ist sondern eine 1 und eine 0. Und in edit1 und edit2 auch nicht jeweils eine 1 eingetragen ist.
In edit1 eine 1 eingetragen was bedeutet dass edit1 nicht weiter untersucht werden soll.
und in edit2 ist zwar eine null eingetragen aber in edit5 fehlt die 1.
ich hoffe ich konnte mit diesem beispiel mein programm näher erklären.
Ich danke schon einmal im Voraus.
