Jetzt meckert er zwar nicht mehr rum, dafür erhöht er aber auch nicht die Länge des Arrays!
Delphi-Quellcode:
type TKartenArray = Array of TKarte;
var
KartenGezogen : TKartenArray;
implementation
procedure cardToArray(karte:TKarte; KartenArray:TKartenArray);
var laenge:integer;
begin
laenge:=length(KartenArray);
setLength(KartenArray, laenge+1);
KartenArray[laenge]:=karte;
end;