Mehrdimensionalles Dynamisches Array Kopieren.

[mkinzler]

Das funktioniert aber nur wenn das Speicherlayout von Quelle und Ziel kompatibel sind.

[p80286]

Zitat von mkinzler:

Das funktioniert aber nur wenn das Speicherlayout von Quelle und Ziel kompatibel sind.

[korinthenmodus an]
funktionieren sollte es immer, wenn genügend Speicher da ist. Es soll sogar Leute geben, die unterschiedliche Layouts nutzen um die Daten anders zu interpretieren. Aber es ging ja nur um das "ob"
[korintenmodus aus]

Gruß
K-H

[Lombok]

Also ist es jetzt nicht möglich so ein Array:

1 O O O
2 O O
3 O O O O O

(Zahlen Zeilen)
(O = Werte der Spalten)

1 zu 1 nur mithilfe von Copy zu Kopieren?

[Bummi]

Delphi-Quellcode:

Type
TARR=Array of Array Of Array of String;

procedure TForm1.Button1Click(Sender: TObject);
var
 a,b:TArr;
 i,j,k:Integer;
begin
  SetLength(a,10);
  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] := Format('%d - %d - %d',[i,j,k]);
      end;
    end;

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


  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);


  for I := 0 to High(b) do
    begin
    for j := 0 to High(b[i]) do
      begin
       for k := 0 to High(b[i][j]) do
       Memo1.Lines.add(b[i][j][k]);
      end;
    end;


end;

[Lombok]

Ein einfaches Nein hätte gereicht Danke an alle.


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