Sitemap
Mitgliederliste Mitgliederliste
Gruppen Gruppen
Das Team Das Team
Museum Richtlinien
Synonyme Synonyme
Hilfe
Login
Registrieren
Mastermind schließt sich direkt wieder
in Delphi Programmierung » Sonstiges (Delphi)
  • delphi
Autor Beitrag
ramses110
Hält's aus hier
Beiträge: 2
BeitragVerfasst: So 08.04.12 01:22 
Hi!

Ich bin gerade dabei, mir ein kleines Mastermind zu programmieren.
Komischerweise schließt sich das Programm direkt wieder sobald ich es öffnen will.
Warum habe ich bisher nicht verstanden und hoffe auf Hilfe!

Der Debugger spuckt mir nichts aus - er kompliert und schließt direkt das Programm, auch bei direktem öffnen.


Grüße,
Rene

markieren
ausblenden volle Höhe Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
773:
774:
775:
776:
777:
778:
779:
780:
781:
782:
783:
784:
785:
786:
787:
788:
789:
790:
791:
792:
793:
794:
795:
796:
797:
798:
799:
800:
801:
802:
803:
804:
805:
806:
807:
808:
809:
810:
811:
812:
813:
814:
815:
816:
817:
818:
819:
820:
821:
822:
823:
824:
825:
826:
827:
828:
829:
830:
831:
832:
833:
834:
835:
836:
837:
838:
839:
840:
841:
842:
843:
844:
845:
846:
847:
848:
849:
850:
851:
852:
853:
854:
855:
856:
857:
858:
859:
860:
861:
862:
863:
864:
865:
866:
867:
868:
869:
 
unit Mastermind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Rot: TPanel;
    Blau: TPanel;
    Farben: TPanel;
    Lila: TPanel;
    Gelb: TPanel;
    Gruen: TPanel;
    Grau: TPanel;
    Beenden: TPanel;
    Sidebar: TPanel;
    Loesungen: TPanel;
    NeueRunde: TPanel;
    ErsteEingabe: TPanel;
    ErsterKasten: TPanel;
    ZweiterKasten: TPanel;
    DritterKasten: TPanel;
    VierterKasten: TPanel;
    LoesungenEins: TPanel;
    KastenEins: TPanel;
    KastenZwei: TPanel;
    KastenDrei: TPanel;
    KastenVier: TPanel;
    ZweiteEingabe: TPanel;
    KastenEinsZwei: TPanel;
    KastenZweiZwei: TPanel;
    KastenDreiZwei: TPanel;
    KastenVierZwei: TPanel;
    DritteEingabe: TPanel;
    KastenEinsDrei: TPanel;
    KastenZweiDrei: TPanel;
    KastenDreiDrei: TPanel;
    KastenVierDrei: TPanel;
    LoesungenZwei: TPanel;
    LEinsZwei: TPanel;
    LZweiZwei: TPanel;
    LDreiDrei: TPanel;
    LVierVier: TPanel;
    LoesungenDrei: TPanel;
    LoesungenEinsVier: TPanel;
    LoesungZweiVier: TPanel;
    LoesungDreiVier: TPanel;
    LoesungenVierVier: TPanel;
    LoesungGesamt: TPanel;
    LoesungEins: TPanel;
    LoesungZwei: TPanel;
    LoesungDrei: TPanel;
    LoesungVier: TPanel;
    ErstesEnter: TPanel;
    Eingaben: TPanel;
    ZweitesEnter: TPanel;
    DrittesEnter: TPanel;
    VierteEingabe: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    FuenfteEingabe: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    SechsteEingabe: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    ViertesEnter: TPanel;
    FuenftesEnter: TPanel;
    SechstesEnter: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel8: TPanel;
    Panel13: TPanel;
    LoesungenFuenf: TPanel;
    Panel19: TPanel;
    Panel20: TPanel;
    Panel21: TPanel;
    Panel22: TPanel;
    LoesungenSechs: TPanel;
    Panel24: TPanel;
    Panel25: TPanel;
    Panel26: TPanel;
    Panel27: TPanel;
    LoesungenVier: TPanel;
    procedure BeendenClick(Sender: TObject);
    procedure BlauClick(Sender: TObject);
    procedure GelbClick(Sender: TObject);
    procedure GrauClick(Sender: TObject);
    procedure GruenClick(Sender: TObject);
    procedure LilaClick(Sender: TObject);
    procedure RotClick(Sender: TObject);
    procedure ErsterKastenClick(Sender: TObject);
    procedure ZweiterKastenClick(Sender: TObject);
    procedure DritterKastenClick(Sender: TObject);
    procedure KastenEinsZweiClick(Sender: TObject);
    procedure KastenZweiZweiClick(Sender: TObject);
    procedure KastenDreiZweiClick(Sender: TObject);
    procedure KastenVierZweiClick(Sender: TObject);
    procedure VierterKastenClick(Sender: TObject);
    procedure KastenVierDreiClick(Sender: TObject);
    procedure KastenEinsDreiClick(Sender: TObject);
    procedure KastenZweiDreiClick(Sender: TObject);
    procedure KastenDreiDreiClick(Sender: TObject);
    procedure Panel4Click(Sender: TObject);
    procedure Panel5Click(Sender: TObject);
    procedure Panel6Click(Sender: TObject);
    procedure Panel7Click(Sender: TObject);
    procedure Panel9Click(Sender: TObject);
    procedure Panel10Click(Sender: TObject);
    procedure Panel11Click(Sender: TObject);
    procedure Panel12Click(Sender: TObject);
    procedure Panel14Click(Sender: TObject);
    procedure Panel15Click(Sender: TObject);
    procedure Panel16Click(Sender: TObject);
    procedure Panel17Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  N1, N2, N3, N4, N5, N6, N7, N8, N9, N10, N11, N12, N13, N14, N15, N16, N17, N18, N19, N20, N21, N22, N23, N24 = Integer;
  
implementation

{$R *.dfm}

procedure TForm1.BeendenClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.BlauClick(Sender: TObject);
begin
if Blau.BevelWidth=1 then begin          //wenn Blau entspricht BevelWidth=1
  Blau.BevelWidth:=8;                    //dann verändere es beim Klick zu BevelWidth=8
  Gelb.BevelWidth:=1;                   //Setze andere Farben wieder auf BevelWidth=1
  Grau.BevelWidth:=1;
  Gruen.BevelWidth:=1;
  Lila.BevelWidth:=1;
  Rot.BevelWidth:=1;
  end;
end;

procedure TForm1.GelbClick(Sender: TObject);
begin
if Gelb.BevelWidth=1 then begin
  Gelb.BevelWidth:=8;
  Blau.BevelWidth:=1;
  Grau.BevelWidth:=1;
  Gruen.BevelWidth:=1;
  Lila.BevelWidth:=1;
  Rot.BevelWidth:=1;
  end;
end;

procedure TForm1.GrauClick(Sender: TObject);
begin
if Grau.BevelWidth=1 then begin
  Grau.BevelWidth:=8;
  Blau.BevelWidth:=1;
  Gelb.BevelWidth:=1;
  Gruen.BevelWidth:=1;
  Lila.BevelWidth:=1;
  Rot.BevelWidth:=1;
  end;
end;

procedure TForm1.GruenClick(Sender: TObject);
begin
if Gruen.BevelWidth=1 then begin
  Gruen.BevelWidth:=8;
  Blau.BevelWidth:=1;
  Grau.BevelWidth:=1;
  Gelb.BevelWidth:=1;
  Lila.BevelWidth:=1;
  Rot.BevelWidth:=1;
  end;
end;

procedure TForm1.LilaClick(Sender: TObject);
begin
if Lila.BevelWidth=1 then begin
  Lila.BevelWidth:=8;
  Blau.BevelWidth:=1;
  Grau.BevelWidth:=1;
  Gruen.BevelWidth:=1;
  Gelb.BevelWidth:=1;
  Rot.BevelWidth:=1;
  end;
end;

procedure TForm1.RotClick(Sender: TObject);
begin
if Rot.BevelWidth=1 then begin
  Rot.BevelWidth:=8;
  Blau.BevelWidth:=1;
  Grau.BevelWidth:=1;
  Gruen.BevelWidth:=1;
  Lila.BevelWidth:=1;
  Gelb.BevelWidth:=1;
  end;
end;

procedure TForm1.ErsterKastenClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    ErsterKasten.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  ErsterKasten.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  ErsterKasten.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  ErsterKasten.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  ErsterKasten.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  ErsterKasten.Color:=clGray;
  end;

if ErsterKasten.Color <> clBtnFace then begin
N1:=N1+1;
end;
end;

procedure TForm1.ZweiterKastenClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    ZweiterKasten.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  ZweiterKasten.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  ZweiterKasten.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  ZweiterKasten.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  ZweiterKasten.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  ZweiterKasten.Color:=clGray;
  end;

if ZweiterKasten.Color <> clBtnFace then begin
  N2:=N2+1;
  end;
end;

procedure TForm1.DritterKastenClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    DritterKasten.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  DritterKasten.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  DritterKasten.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  DritterKasten.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  DritterKasten.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  DritterKasten.Color:=clGray;
  end;

if DritterKasten.Color <> clBtnFace then begin
N3:=N3+1;
 end;
end;

procedure TForm1.KastenEinsZweiClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    KastenEinsZwei.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  KastenEinsZwei.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  KastenEinsZwei.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  KastenEinsZwei.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  KastenEinsZwei.Color:=clGreen;
  end;
i-f Grau.BevelWidth =8 then begin
  KastenEinsZwei.Color:=clGray;
  end;

if KastenEinsZwei.Color <> clBtnFace then begin
N4:=N4+1;
end;
end;

procedure TForm1.KastenZweiZweiClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    KastenZweiZwei.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  KastenZweiZwei.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  KastenZweiZwei.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  KastenZweiZwei.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  KastenZweiZwei.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  KastenZweiZwei.Color:=clGray;
  end;

if KastenZweiZwei.Color <> clBtnFace then begin
N5:=N5+1;
end;
end;

procedure TForm1.KastenDreiZweiClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    KastenDreiZwei.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  KastenDreiZwei.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  KastenDreiZwei.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  KastenDreiZwei.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  KastenDreiZwei.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  KastenDreiZwei.Color:=clGray;
  end;

//if KastenDreiZwei.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.KastenVierZweiClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    KastenVierZwei.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  KastenVierZwei.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  KastenVierZwei.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  KastenVierZwei.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  KastenVierZwei.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  KastenVierZwei.Color:=clGray;
  end;

//if KastenVierZwei.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.VierterKastenClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    VierterKasten.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  VierterKasten.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  VierterKasten.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  VierterKasten.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  VierterKasten.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  VierterKasten.Color:=clGray;
  end;

//if VierterKasten.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.KastenVierDreiClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    KastenVierDrei.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  KastenVierDrei.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  KastenVierDrei.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  KastenVierDrei.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  KastenVierDrei.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  KastenVierDrei.Color:=clGray;
  end;

//if KastenVierDrei.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.KastenEinsDreiClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    KastenEinsDrei.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  KastenEinsDrei.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  KastenEinsDrei.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  KastenEinsDrei.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  KastenEinsDrei.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  KastenEinsDrei.Color:=clGray;
  end;

//if KastenEinsDrei.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.KastenZweiDreiClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    KastenZweiDrei.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  KastenZweiDrei.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  KastenZweiDrei.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  KastenZweiDrei.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  KastenZweiDrei.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  KastenZweiDrei.Color:=clGray;
  end;

//if KastenZweiDrei.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.KastenDreiDreiClick(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    KastenDreiDrei.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  KastenDreiDrei.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  KastenDreiDrei.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  KastenDreiDrei.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  KastenDreiDrei.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  KastenDreiDrei.Color:=clGray;
  end;

//if KastenDreiDrei.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel4Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel4.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel4.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel4.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel4.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel4.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel4.Color:=clGray;
  end;

//if Panel4.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel5Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel5.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel5.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel5.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel5.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel5.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel5.Color:=clGray;
  end;

//if Panel5.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel6Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel6.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel6.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel6.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel6.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel6.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel6.Color:=clGray;
  end;

//if Panel6.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel7Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel7.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel7.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel7.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel7.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel7.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel7.Color:=clGray;
  end;

//if Panel7.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel9Click(Sender: TObject);
begin
  if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel9.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel9.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel9.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel9.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel9.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel9.Color:=clGray;
  end;

//if Panel9.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel10Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel10.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel10.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel10.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel10.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel10.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel10.Color:=clGray;
  end;

//if Panel10.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel11Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel11.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel11.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel11.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel11.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel11.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel11.Color:=clGray;
  end;

//if Panel11.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel12Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel12.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel12.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel12.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel12.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel12.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel12.Color:=clGray;
  end;

//if Panel12.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel14Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel14.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel14.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel14.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel14.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel14.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel14.Color:=clGray;
  end;

//if Panel14.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel15Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel15.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel15.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel15.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel15.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel15.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel15.Color:=clGray;
  end;

//if Panel15.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel16Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel16.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel16.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel16.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel16.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel16.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel16.Color:=clGray;
  end;

//if Panel16.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.Panel17Click(Sender: TObject);
begin
if Rot.BevelWidth =8 then begin              //frage ob Kasten Rot BevelWidth=8
    Panel17.Color:=clRed;                           //dann setze Eigenschaft Color auf Rot
    end;
if Blau.BevelWidth =8 then begin
  Panel17.Color:=clNavy;
  end;
if Lila.BevelWidth =8 then begin
  Panel17.Color:=clFuchsia;
  end;
if Gelb.BevelWidth =8 then begin
  Panel17.Color:=clYellow;
  end;
if Gruen.BevelWidth =8 then begin
  Panel17.Color:=clGreen;
  end;
if Grau.BevelWidth =8 then begin
  Panel17.Color:=clGray;
  end;

//if Panel17.Color <> clBtnFace then begin
//  N1:=N1+1;
//  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  N1:=0;
  N2:=0;
  N3:=0;
  N4:=0;
  N5:=0;
  N6:=0;
  N7:=0;
  N8:=0;
  N9:=0;
  N10:=0;
  N11:=0;
  N12:=0;
  N13:=0;
  N14:=0;
  N15:=0;
  N16:=0;
  N17:=0;
  N18:=0;
  N19:=0;
  N20:=0;
  N21:=0;
  N22:=0;
  N23:=0;
  N24:=0;
end;

end.


Zuletzt bearbeitet von ramses110 am So 08.04.12 02:00, insgesamt 1-mal bearbeitet
Blawen
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 616
Erhaltene Danke: 33

Win XP, Vista, 7
Delphi 5 Prof., BDS 2006 Prof. RAD Studio XE
BeitragVerfasst: So 08.04.12 01:37 
Ich habe den Code nur teilweise angeschaut, dabei ist mir diesbezüglich kein offensichtlicher Fehler aufgefallen.
Vermutlich liegt der Fehler im Hauptprogramm.
Ev. wäre es von Vorteil, wenn Du das komplette Projekt hochladen würdest.

PS:
Bitte verwende für den Delphi-Code jeweils Delphi-Tags (Übersichtlicher).

_________________
Es kompilert, wir können ausliefern.
Und es kompiliert wieder - das Update ist fertig - bitte 100 Euro ;-)
ramses110 Threadstarter
Hält's aus hier
Beiträge: 2
BeitragVerfasst: So 08.04.12 01:59 
Hi!

Ich habe die Dateien auch auf einem anderen PC getestet, wo das gleiche passiert ist. Neue Projekte funktionieren.
Sorry - wusste nicht, dass es Delphi-Codes gibt.

Anbei das ganze Projekt.

Moderiert von user profile iconNarses: Binaries aus dem Archiv entfernt.
Einloggen, um Attachments anzusehen!
bummi
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 1248
Erhaltene Danke: 187

XP - Server 2008R2
D2 - Delphi XE
BeitragVerfasst: So 08.04.12 09:40 
Du hast einen ganzen Stapel an Problemen und einen unglücklichen Ansatz gewählt.
Wenn Du Projekt>Dem Projekt hinzufügen>Mastermind.pas wählst, bist Du einen Schritt weiter.
Diese eigentlich immer gleichen Codepassagen solltest Du auflösen und bei diesen über einen Index arbeiten.
aber wie gesagt, da sind noch etliche Baustellen ....

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Entwickler-Ecke.de rev.276b99aea638 based on phpBB
Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!

Impressum | Datenschutzerklärung | Kontakt zum Team