|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
AW: Dynamisches Array
2. Sep 2010, 16:36
Das funktioniert nicht?
Delphi-Quellcode:
type TKartenArray = Array of TKarte;
var
KartenGezogen : TKartenArray;
implementation
procedure cardToArray(karte:TKarte; var KartenArray:TKartenArray);
var laenge:integer;
begin
laenge:=length(KartenArray);
setLength(KartenArray, laenge+1);
KartenArray[laenge]:=karte;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|