![]() |
AW: Mehrdimensionalles Dynamisches Array Kopieren.
Ein einfaches Nein hätte gereicht Danke an alle. :D
Bitte Schließen Frage ist beantwortet. Mfg Lombok. |
AW: Mehrdimensionalles Dynamisches Array Kopieren.
@Lombok
Wie kommst Du auf nein? Mein Post war zum nachvollziehen des JA gedacht. Der Firlefanz
Delphi-Quellcode:
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 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);
Delphi-Quellcode:
die funktioniert.
b := Copy(a,0,Length(a));
|
AW: Mehrdimensionalles Dynamisches Array Kopieren.
Hi,
Also ich habe 2x Dynamische Array of Byte mit je 2 Dimensionen. Wenn ich jetzt
Code:
eingebe.
var
KandidatenListen2 : array of array of Byte; KandidatenListen : array of array of Byte; KandidatenListen2 := Copy(KandidatenListen,0,Length(KandidatenListen)); 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. |
AW: Mehrdimensionalles Dynamisches Array Kopieren.
Code:
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.
type
TArrayOfArrayOfByte = array of array of Byte; var KandidatenListen2 : TArrayOfArrayOfByte; KandidatenListen : TArrayOfArrayOfByte; KandidatenListen2 := Copy(KandidatenListen,0,Length(KandidatenListen)); |
AW: Mehrdimensionalles Dynamisches Array Kopieren.
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. |
AW: Mehrdimensionalles Dynamisches Array Kopieren.
Einmal musst du die Schleife trotzdem durchlaufen, denn Copy kopiert wie gesagt immer nur eine Dimension auf einmal.
Delphi-Quellcode:
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.
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; Viele Grüße... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz