Dynamisches Array

[mkinzler]

Ob das Selbe dahintersteckt ist dem Compiler egal, der Typ(name) muss gleich sein

[Lotus]

Aber ist er doch oder nicht?

Delphi-Quellcode:

procedure cardToArray(karte:TKarte; KartenArray:array of TKarte);
var laenge:integer;
begin
laenge:=length(KartenArray);
setLength(KartenArray, laenge+1);
KartenArray[laenge]:=karte;
end;

[mkinzler]

Deklareiere dir einen Typ dafür

TKartenAaray = Array of TKarte;

[Lotus]

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;

[DeddyH]

Wenn Du sowieso das Array als globale Variable deklariert hast, wozu dann der Parameter? Und wenn das einen Grund hat, versuch es mal mit einem var-Parameter.

[Lotus]

Es sollen später noch mehr Array's dazukommen, die auch alle mit dieser Procedure funktionieren sollen, von daher der Parameter

Bei nem var-Parameter kollidiere ich dann wieder mit Inkompatible Typen.. ich stell mich gerade doof an glaube ich :-/

Ich bin sogar schon auf die Fehlermeldung gekommen:
[Fehler] Unit1.pas(274): Inkompatible Typen: 'Array' und 'dynamic array'

[DeddyH]

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;