Ha! Eigenlob stinkt, aber ich kann ganz genial sein
Ich habs hinbekommen und kann mir den kompletten 2. Array gleich noch sparen
Der Code:
Delphi-Quellcode:
for a := 1 to 5 do begin
for b := 1 to 5 do
begin
if (ABlatt[a].Wert = ABlatt[b].Wert) then
begin
if (ABlatt[a].Position <> ABlatt[b].Position) then
begin
Showmessage('Karte '+IntToStr(ABlatt[b].Position)+' und Karte '+IntToStr(ABlatt[a].Position));
end else
break;
end;
end;
end;
Der Code überprüft jetzt, ob doppelte Zahlen vorhanden sind, egal an welcher Stelle. Muss nur noch der Fall von drei/vier gleichen Zahlen eingebaut werden
Danke an die, die sich immerhin die Mühe gemacht haben, mein Problem zu verstehen
