Mehrdimensionalles Dynamisches Array Kopieren.

[Lombok]

Ein einfaches Nein hätte gereicht Danke an alle. :D


Bitte Schließen Frage ist beantwortet.

Mfg Lombok.

[Bummi]

@Lombok

Wie kommst Du auf nein? Mein Post war zum nachvollziehen des JA gedacht.

Der Firlefanz

Delphi-Quellcode:

 
  for I := 0 to High(a) do
    begin
    SetLength(a[i],i+1);
    for j := 0 to High(a[i]) do
      begin
       SetLength(a[i][j],j+1);
       for k := 0 to High(a[i][j]) do a[i][j][k] := '';
      end;
    end;
 SetLength(a,0);

zum leeren und zurücksetzen von a war gedacht um den den Effekt der Auftritt wenn man meint durch eine Zuweisung arbeiten zu können (b=a) wo auch erst mal alles richtig aussieht, bis a verändert wird, gegenüberzustellen einer echten Kopie

Delphi-Quellcode:

 b := Copy(a,0,Length(a));

die funktioniert.

[Lombok]

Hi,

Also ich habe 2x Dynamische Array of Byte mit je 2 Dimensionen.

Wenn ich jetzt

Code:

var

KandidatenListen2   : array of array of Byte;
KandidatenListen   : array of array of Byte;
         
KandidatenListen2 := Copy(KandidatenListen,0,Length(KandidatenListen));

eingebe.

Bekomm ich nur die Fehlermeldung das es Inkompatible Typen sind.

Habe es jetzt mit 2 For Schleifen selber gelöst.

Code:

   for i:=0 to (high(kandidatenlisten)) do begin
      SetLength(Kandidatenlisten2,i+1);
         for a:=1 to length(kandidatenlisten[i])do begin
          SetLength(Kandidatenlisten2[i],a);
          KandidatenListen2[i,a-1]:= KandidatenListen[i,a-1];

Ich wollte aber halt wissen ob man das auch mit Copy geht um mir das mal zu ersparen immer mit For Schleifen zu arbeiten.

Deine Syntax die du mir Geschrieben hast funktionierd aber bei mir nicht da kommt wie gesag die oben genannte Fehlermeldung.
Liegt es vieleicht daran das ich Delphi 5 benutze?.

Mfg Lombok.

[Medium]

Code:

type
  TArrayOfArrayOfByte = array of array of Byte;

var
KandidatenListen2   : TArrayOfArrayOfByte;
KandidatenListen   : TArrayOfArrayOfByte;
         
KandidatenListen2 := Copy(KandidatenListen,0,Length(KandidatenListen));

Und schon ist es zuweisungskompatibel. Aus den zwei getrennten array-Deklarationen bei dir macht Delphi intern auch zwei Typen, die für Delphi intern unterschiedlich sind - auch wenn sie es strukturell nicht sind. Mit einer eigenen Typdeklaration definiert man das für den Compiler dann eindeutig.

[Lombok]

Hi,

Ok das wusste Ich nicht. Klingt für mich aber auch erstmal ziemlich seltsam auch wenns am Ende schlüssig ist. Bin da von Java wohl zuviel verwöhnt.

Fürs nächste Mal weiß ich dann Bescheid.
Danke.

[Peter1999]

Einmal musst du die Schleife trotzdem durchlaufen, denn Copy kopiert wie gesagt immer nur eine Dimension auf einmal.

Delphi-Quellcode:

type TIntArr2D = array of array of Integer;


function CopyIARR2D(aIArr: TIntArr2D): TIntArr2D;
var i: Integer;
begin
  Result := copy(aIArr);
  for i := 0 to high(Result) do
    Result[i] := copy(aIArr[i]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c,d: TIntArr2D;
begin
  setlength(a,5,5);
  a[2,2] := 5;
  a[3,3] := 1;
  b := copy(a);
  a[2,2] := 9;
  b[3,3] := 3;

  showmessage(inttostr(a[3,3])); // --> 3
  showmessage(inttostr(b[2,2])); // --> 9


//-----------------------------------------------
  setlength(c,5,5);
  c[2,2] := 5;
  c[3,3] := 1;
  d := CopyIArr2D(c);
  c[2,2] := 9;
  d[3,3] := 3;

  showmessage(inttostr(c[3,3])); // --> 1
  showmessage(inttostr(d[2,2])); // --> 5
end;

Andernfalls besteht die Gefahr, dass du dir dein "Orignial" veränderst, wenn du mit der "falschen" Kopie arbeitest, was ein gern gemachter Fehler ist und was man auch gern übersieht.

Viele Grüße...