Dynamisches Array

[Lotus]

Hallo ich habe ein dynmaisches Array
A : array of TKarte TKarte ist dafür unwichtig, könnten auch Bytes oder Integer sein, ist egal.

Aber jetzt kommt ein Fehler wenn ich Daten ins Array fügen will..
Die setLength des Array's ist am Anfang auf 0.. dann rufe ich folgende Procedure auf:

Delphi-Quellcode:

procedure cardToArray(karte:TKarte; KartenArray:array of TKarte);
var laenge:Byte;
begin
laenge:=length(KartenArray); //muesste 0 sein beim ersten aufruf
setLength(KartenGezogen, laenge+1); //hier setze ich die laenge auf 1
KartenArray[laenge]:=karte; //und hier füge ich an indexposition [0] die daten ein
end;

Da meckert Delphi rum mit der Exception:
ERangeError: Fehler bei der Bereichsüberprüfung...

Ich versteh's nicht.. die Grenzen sind doch richtig gesetzt oder nicht?

[Klaus01]

Hallo,

die Meldung kommt vielleicht weil Length keine Byte-Typen
liefert.

Grüße
Klaus

[Lotus]

Danke für deine Antwort,
Fehler tritt aber leider auch bei Integer auf.

[blauweiss]

Hallo Lotus,

der Fehler ist garantiert, weil Du zwar array "KartenArray" übergibst und in dieses einfügen willst, aber nur ein anderes (globales ??) array "KartenGezogen" größer dimensionierst.

Gruss
blauweiss

[Lotus]

OMG, ja ich seh's!

Hab die Zeile gleich mal zu setLength(KartenArray, laenge+1) geändert, allerdings sagt er mir jetzt in dieser Zeile Inkompatible Typen.
Aber das ist seltsam, ich übergebe A an diese Procedure und A ist vom Typ "array of TKarte" und KartenArray auch..

Kann es sein das die lokale Arrayvariable nicht als dynamisch anerkannt wird? Wenn ja, wie kann ich das umgehen?

[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.