1:

function Mischen(aStapel: Array of Karte):Array of Karte;                    

1:
2:
3:
4:

Type
  TKartenDeck: Array of Karte

  function Mischen(aStapel: TKartenDeck):TKartenDeck;                    

1:
2:
3:
4:

Type
  TKartenDeck: Array of Karte

  procedure Mischen(var aStapel: TKartenDeck);                    

1:
2:

Type
  TKartenDeck = Array of Karte;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

unit UAktion;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UKarte, StdCtrls;

type
  Aktion=class;
  TKartendeck=Array of Karte;
  function Mischen(aStapel:TKartendeck):TKartendeck;



implementation

function TKartendeck.Mischen(aStapel:TKartendeck):TKartendeck;
var
  k, l, zufallskarte: Integer;

begin
  for k := 1 to Length(Mischen) do
    Mischen[k].Wert:=0;
    
  SetLength(Mischen,Length(aStapel));
  for k := 1 to 8 do begin
    for l := 1 to Length(Mischen) do begin
      zufallskarte:=Random(Length(Mischen))+1;
      if Mischen[zufallskarte].Wert=0 then
        Mischen[zufallskarte]:=aStapel[l];
    end;
  end;
end;

end.                    

1:
2:
3:
4:
5:
6:

type
  Aktion=class
  private
  public
  procedure Mischen(var aStapel:Array of Karte);
end;