Probleme beim Vergleichen ...

[Fallenangel1989]

Ich möchte Wunschdaten die ich zuvor mit Checkboxen und Comboboxen ausgewählt habe mit voreingegeben Personen vergleichen.
Dazu habe ich zur Zeit diesen Quelletext:

Delphi-Quellcode:

punktzahl1:=0;
if wunschdaten[1].musik.pop=wunschdaten[2].musik.pop  then
punktzahl1:=punktzahl1+1
else
if wunschdaten[1].musik.rock=wunschdaten[2].musik.rock  then
punktzahl1:=punktzahl1+1
else
if wunschdaten[1].musik.pop and wunschdaten[2].musik.rock then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].musik.rock and wunschdaten[2].musik.pop then
punktzahl1:=punktzahl1+0;

if wunschdaten[1].bundesland = wunschdaten[2].bundesland then
punktzahl1:=punktzahl1+3
else
if wunschdaten[1].bundesland <> wunschdaten[2].bundesland then
punktzahl1:=punktzahl1+0;

if wunschdaten[1].geschlecht = wunschdaten[2].geschlecht then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].geschlecht <> wunschdaten[2].geschlecht then
punktzahl1:=punktzahl1+3;

if wunschdaten[1].haarfarbe = wunschdaten[2].haarfarbe then
punktzahl1:=punktzahl1+3
else
if wunschdaten[1].haarfarbe <> wunschdaten[2].haarfarbe then
punktzahl1:=punktzahl1+0;

if wunschdaten[1].interessen.kino = wunschdaten[2].interessen.kino then
punktzahl1:=punktzahl1+1
else
if wunschdaten[1].interessen.kino and wunschdaten[2].interessen.sport then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].interessen.kino and wunschdaten[2].interessen.reisen then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].interessen.kino and wunschdaten[2].interessen.fotografieren then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].interessen.kino and wunschdaten[2].interessen.buecher then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].interessen.kino and wunschdaten[2].interessen.musik then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].interessen.kino and wunschdaten[2].interessen.filme then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].interessen.kino and wunschdaten[2].interessen.technik then
punktzahl1:=punktzahl1+0
else
if wunschdaten[1].interessen.kino and wunschdaten[2].interessen.computerspiele then
punktzahl1:=punktzahl1+0;

Aber irgendwie gibt er mir nicht die richtige Punktzahl aus und ich finde meinen Fehler irgendwie nicht ... habe nur die Vermutung das es vielleicht an dem AND bei bei dein Interessen und Musikrichtungen liegen könnte ...

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]