Ich versuche es mal etwas ausführlicher:
Gegeben ist
Code:
Type EKarte = Record
name: String;
ort: Integer;
status: Integer;
End;
Davon gibt es nun für die beiden Spieler
Code:
var
P1Ekarte, P2EKarte: Array of Ekarte
Diese beiden Arrays werden nun mit den Karten der Spieler geladen. Da es ist keine festgesetzte Anzahl von Karten gibt, wurde ein dynamisches Array verwendet (beim Laden wird mit Setlength jeweils die Endgröße der Arrays P1EKarte und P2EKarte bestimmt.
Jetzt soll eine Funktion / Prozedur existieren, die die gefüllten Arrays "mischt". Nach dem Mischen sollen in den beiden Arrays jeweils die ursprünglichen Karten vorhanden sein, nur gemischt.
Gesucht ist also ein Funktion / Prozedur "MixECards" in der Form:
Code:
P1EKarte (gemischt) :=MixECards(P1Ekarte (ungemischt));
die sich dann auch als
Code:
P2EKarte (gemischt) :=MixECards(P2Ekarte (ungemischt));
benutzen lassen sollte.
Wie schon geschrieben, ein Mischen innerhalb der Prozedur habe ich hinbekommen, nur blieb da mein Input-Array unverändert.
Code:
procedure MixECards(PECards: Array of EKarte);
begin
...
end;
Bei einem MixEcards(P1EKarte) wurde praktisch "PECards" innerhalb der Prozedur gemischt, aber nicht "P1EKarte" als Ergebnis.
Gruß Kay