Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi mehrere komponenten vergleichen??? (https://www.delphipraxis.net/146292-mehrere-komponenten-vergleichen.html)

napstar 17. Jan 2010 11:41


mehrere komponenten vergleichen???
 
hey..

ich arbeite seit langem mal wieder mit delphi und hab so einiges vergessen :D..
ich war aber vorher schon nicht der beste in sachen delphi..
ich hoffe ihr könnt mir weiterhelfen :)

hier meine frage...
ich habe sowas wie ein quiz erstellt...
und habe 6 checkboxen auf meiner form..
3 davon sind zum antworten und die anderen 3 zeigen die Lösungen..

es können mehrere antworten richtig seien.. und ich weiß nicht wie ich die checkboxen alle auf einmal vergleichen kann..
wenn immer nur eine antwort richtig währe, währe es ja kein problem..

um das ganze bisschen verständlicher zu machen hänge ich mal ein bild an..

http://img5.imagebanana.com/img/2vur...IC1883.tmp.jpg

bei fehlern soll dem integer 'fehlerpunkte' 1 dazugerechnet werden..
klappt aber nicht wie ich das gerne hätte was auch logisch ist ^^..

Jens Hartmann 17. Jan 2010 11:53

Re: mehrere komponenten vergleichen???
 
Was hast Du denn bist jetzt an Code. So ganz versteh ich nicht wo Dein Problem liegt.

Gruß Jens

patti 17. Jan 2010 11:56

Re: mehrere komponenten vergleichen???
 
Wenn ich dich richtig verstanden habe (hab nämlich ehrlich gesagt auch einpaar Probleme mit der Formulierung), dann mach es doch folgendermaßen:

Delphi-Quellcode:
var AntwortRichtig : Boolean;
begin
   AntowrtRichtig := (cbLsg1.Checked = cbAntw1.Checked) and
             (cbLsg2.Checked = cbAntw2.Checked) and
             (cbLsg3.Checked = cbAntw3.Checked);
   //
   if not(AntwortRichtig) then inc(fehlerpunkte);
mfg

napstar 17. Jan 2010 12:48

Re: mehrere komponenten vergleichen???
 
danke damit hat es funktioniert..

mein problem war, dass die antwort als richtig anerkannt wird.. obwohl nicht alle antworten richtig waren...


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz