AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Mehrdimensionalles Dynamisches Array Kopieren.

Ein Thema von Lombok · begonnen am 7. Mär 2013 · letzter Beitrag vom 11. Mär 2013
Antwort Antwort
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.880 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Mehrdimensionalles Dynamisches Array Kopieren.

  Alt 7. Mär 2013, 14:58
Das funktioniert aber nur wenn das Speicherlayout von Quelle und Ziel kompatibel sind.
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Mehrdimensionalles Dynamisches Array Kopieren.

  Alt 7. Mär 2013, 15:04
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
Angehängte Grafiken
Dateityp: gif pas_error.gif (9,4 KB, 17x aufgerufen)
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector

Geändert von p80286 ( 7. Mär 2013 um 15:10 Uhr)
  Mit Zitat antworten Zitat
Lombok

Registriert seit: 7. Mär 2013
12 Beiträge
 
#3

AW: Mehrdimensionalles Dynamisches Array Kopieren.

  Alt 7. Mär 2013, 15:08
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?
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: Mehrdimensionalles Dynamisches Array Kopieren.

  Alt 7. Mär 2013, 15:45
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;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Lombok

Registriert seit: 7. Mär 2013
12 Beiträge
 
#5

AW: Mehrdimensionalles Dynamisches Array Kopieren.

  Alt 11. Mär 2013, 09:14
Ein einfaches Nein hätte gereicht Danke an alle.


Bitte Schließen Frage ist beantwortet.

Mfg Lombok.

Geändert von Lombok (11. Mär 2013 um 09:23 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#6

AW: Mehrdimensionalles Dynamisches Array Kopieren.

  Alt 11. Mär 2013, 09:45
@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.
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)

Geändert von Bummi (11. Mär 2013 um 09:51 Uhr)
  Mit Zitat antworten Zitat
Lombok

Registriert seit: 7. Mär 2013
12 Beiträge
 
#7

AW: Mehrdimensionalles Dynamisches Array Kopieren.

  Alt 11. Mär 2013, 11:08
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.

Geändert von Lombok (11. Mär 2013 um 11:11 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:53 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-2025 by Thomas Breitkreuz