Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Array-Einträge vergleichen (https://www.delphipraxis.net/2516-array-eintraege-vergleichen.html)

Yheeky 27. Jan 2003 14:48


Array-Einträge vergleichen
 
Hi,

ich habe folgendes Problem:
Ich möchte 2 Arrays miteinander vergleichen. Ich möchte schauen ob der Eintrag 1 von Array Nummer 1 irgendwo in Array 2 steht. Wenn nicht, soll er dasselbe für den 2.Eintrag von Array 1 machen usw...

Ich habe folgendes gemacht, aber das funzt bei mir net so wie es sollte:

Code:
var IKarten, SpielerKarten : Integer;

...

    for IKarten := 1 to 5 do
        begin
        for SpielerKarten := 1 to 5 do
            begin
            if Karte.Speicher[IKarten] = Karte.HandkartenSpieler2[SpielerKarten] then
            Karte.Speicher[IKarten] := -1;
            end;
        end;
Wäre nett, wenn mir jemand sagen könnte, was ich falsche mache.

Gruß Yheeky

Christian Seehase 27. Jan 2003 16:12

Moin Yheeky,

was passieren soll, wenn das nicht der Fall ist hast Du ja geschrieben, aber was passieren soll, wenn der Eintrag gefunden wird fehlt eventuell.
Soll dann nur der Wert in Array 1 auf -1 gesetzt werden, oder auch abgebrochen?

Grundsätzlich kann ich gemäss Deiner Vorgabe keinen Fehler entdecken.

Yheeky 27. Jan 2003 16:14

Yo, das ist ja das Problem :lol: - kann auch keinen Fehler finden...Naja, eigentlich soll er den Wert im Array so lassen, falls er nicht gefunden wird, deswegen stimmt das schon soweit. Naja, mir wird wohl nichts anderes übrig bleiben, als das Programm nochmal systematisch durchzugehen. Trotzdem danke.

Gruß Yheeky

Christian Seehase 27. Jan 2003 16:26

Moin Yheeky,

was mir allerdings bei allem nicht so ganz klar geworden ist:

Was funktioniert denn eigentlich nicht?

Yheeky 27. Jan 2003 16:44

Fehler gefunden!

Tja, ein kleiner Denkfehler genügt :oops: 8) :lol: .
Jetzt funktioniert´s so, wie ich´s angegeben habe.

Danke!

Gruß Yheeky


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:23 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