problem beim vergleichen von Karten --- Gewinner ermitteln

[Fussel9]

:shock: I-wie gehts da nix^^ also ich lasse mir testweise die karten der gegner (G1 und G2) mit anzeigen und die Abfrage scheint noch nicht zu stimmen :mrgreen: is wahrscheinlich wieder irgend ne kleinigkeit oder son ganz blöder fehler

Danke schonmal fürs Korrigieren meiner Blödheit ;)

Aufruf:

Delphi-Quellcode:

procedure TFormMain.Card1Click(Sender: TObject);
var i: Integer;
begin
(Sender as TImage).BringToFront;
ShowMessage(IntToStr((Sender as TImage).Tag));
Hand.toFirst;
for i := 1 to ((Sender as TImage).Tag)-1 do
  begin
    Hand.Next;
  end;
Berechne(Hand.GibAktuelles,G1Hand.GibErstes.GibNext,G2Hand.GibErstes.GibNext);
end;

Proz:

Delphi-Quellcode:

procedure TFormMain.Berechne(pKarte, pG1Karte, pG2Karte: TKarte);
begin
if (pKarte.GibInhalt.GibZahl > pG1Karte.GibInhalt.GibZahl) then
  begin
    if (pG1Karte.GibInhalt.GibZahl > pG2Karte.GibInhalt.GibZahl) then
      begin
        ShowMessage('Spieler gewinnt');
      end
    else
      begin
        if (pKarte.GibInhalt.GibZahl > pG2Karte.GibInhalt.GibZahl) then
          begin
            ShowMessage('Spieler gewinnt');
          end
        else
          begin
            ShowMessage('Gegner2 gewinnt');
          end;
      end;
  end
else
  begin
    if (pG1Karte.GibInhalt.GibZahl > pG2Karte.GibInhalt.GibZahl) then
      begin
        ShowMessage('Gegner1 gewinnt');
      end
    else
      begin
        ShowMessage('Gegner2 gewinnt');
      end;
  end;
end;

[mkinzler]

Was kommt den raus, und was erwartest du als Ergebnis?

[Fussel9]

Ka... schreib mal nen paar beispiele auf:
Runde 1
ich(I): 3 Gegner1(G1): 12 Gegner2(G2): 4 --> G1 gewinnt | y
Runde 2
I: 2 G1: 1 G2: 3 --> G2 gewinnt | y
I: 1 '' '' --> '' | y
Runde 3
I: 6 G1: 5 G2: 11 --> G1 gewinnt | N
I: 8 '' '' --> '' | N
I: 2 ____________________________| N
Runde 4
2|5|10-Y
8|5|10-y
13|5|10-y
12''-y
Runde 5
3|5|12-G1 gewinnt|N
10''-G1 gewinnt|N
8''|-Spieler gewinnt|N
0''|G1 gewinnt|N
3''|G1|N

N steht für No -- Also für falsch

man achte auf runde 5 ... sonst wäre jede ungerage runde so das immer G1 gewinnt ... aber...

[Fussel9]

Wenns hilft stell ich den gesamten quelltext rein oder lad das hoch...
:? HELP :? :o

[Fussel9]

Kleines Update bevor ich mich aufs Ohr hau...

ich dachte erst es läge vielleicht daran das ich die Hand-Listen an der Stelle an der Sie gefüllt werden nicht geleert hatte.. aber auch daran lag es nicht... hier im anhang mal die exe... vielleicht erkennt ja jemand einen Zusammenhang...

Falls ihr doch den Quellcode komlett braucht meldet euch bitte...

Auf den Karten finden sich die Zahlen 1 bis 13 - N Steht für 0 und MW Steht für 14

die Farben haben keine bedeutung und da es sich nur um einen Test handelt spielen die KIs immer die erste ihrer Karten...

Die erste Message ist der Tag der Komponente also die wievielte karte man spielen will( beim anklicken)

Die zweite zeigt wie viele Elemente in den Hand-Listen jeweils sind...
Die dritte zeit an wer gewonnen hat... aber das stimmt ja noch nicht...

€DiT:
Oh ja... :lol: der Button Startet die nächste Runde ^^


€DIT:

AnHaNg EnTfErNt

[Fussel9]

:pale: :Help: :pale:
Hat keiner ne Idee?

--> Die exe is auch erst einmal gedownloaded worden...

*need help*+*dringend*

:?

[DeddyH]

Bist Du denn einmal durchgesteppt? Das sollte man vielleicht mal als erstes versuchen, da fallen (zumindest mir) logische Fehler recht schnell ins Auge.

[Fussel9]

relativ...

ich geh jetzt nochmal komplett durch... aber ob ich da was finde ist nicht sicher... kann gut sein das es was ist was mir gar nicht so bewusst ist...

[p80286]

Hallo Fussel9,

nicht böse sein. Aber was ich bis jetzt über Dein Problem gelesen habe, ist doch etwas wirr.
Wenn Du Karten vergleichst, nehme ich an, daß Du Spielkarten meinst.
Dann wäre es ganz gut zu wissen um welches Spiel es sich handelt, damit man eine ungefähre Vorstellung von dem bekommt worauf Du eigentlich hinaus willst.

Die paar Codezeilen die ich bis jetzt gesehen habe machen mir ehrlich gesagt keinen "Appetit auf mehr", weil ich nicht weiß um was es geht.
Und nur aus Jux und Dollerei lade ich mir meine Festplatte nicht mit irgendwelchen Sourcen oder Exen zu.

Gruß
K-H

[Fussel9]

... ja ok... das spiel kennt so wie so niemand und es ist auch irrelevant um welches es sich handelt da ich nur die Zahlen vergleichen will wie oben schon beschrieben ...

es gibt die Zahlen von 0 bis 14 ....

und ich weiß nicht ob dus wusstest, aber man kann dateien auch löschen... :wink: ...womit du dir auch deine festplatte nicht zupackst :mrgreen: