Array an procedure übergeben

[Igotcha]

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