Thema: Delphi Dynamisches Array

Einzelnen Beitrag anzeigen

Lotus

Registriert seit: 26. Feb 2007
85 Beiträge
 
Delphi 7 Personal
 
#9

AW: Dynamisches Array

  Alt 2. Sep 2010, 15:51
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;
  Mit Zitat antworten Zitat