Hallo
Folgendes problem: Ich habe zwei Arrays, ein 1-dimensionales und ein 2-dimensionales. Das 2-dim. soll mehrere 1-dim. Arrays speichern können.
Es soll diese 1-dim. Arrays aber nur speichern, wenn sie nicht schon in diesem Array vorhanden sind, also doppelte Einträge sollen vermieden werden.
Dazu habe ich jetzt folgenden Code:
Delphi-Quellcode:
type
TBooleanDynArray = array of boolean;
var
kaufband: TBooleanDynArray;
kaufbaende: array of TBooleanDynArray;
...
H:=0; //Anzahl der mögl. Ausgaben
SetLength(kaufband,bI+1); //bI ist eine Konstante
for i:=1 to bI do begin
kaufband[i]:=false;
end;
...
ausgabe:=true; //Gehe davon aus, dass neuer Eintrag gefunden wurde
for h:=0 to H-1 do begin
if kaufbaende[h]=kaufband then begin //Ich denke hier liegt das Problem
ausgabe:=false; //Wenn Eintrag schon existiert, dann kein neuen Eintrag gefunden
end;
end;
if ausgabe then begin
inc(H);
SetLength(kaufbaende,H);
SetLength(kaufbaende[H-1],bI+1);
for i:=1 to bI do begin
kaufbaende[H-1,i]:=false;
end;
kaufbaende[H-1]:=kaufband;
end;
So ich hoffe ihr könnt mir helfen, weil ich versteh wirklich nicht, warum dabei immer ein Zugriffsfehler erscheint.
Danke schonmal für eure Bemühungen
und seid nicht so streng mit mir ich bin NewBee in Delphi.
DankE!