Verschieden Dimensionale Arrays und Move

[Neutral General]

Hi,

Ich habe im Moment folgendes:

Delphi-Quellcode:

type
  TDawnColor = packed record
    case Integer of
      0: (Value: Cardinal);
      1: (R, G, B, A: Byte);
  end;
  TDawnPixels = Array of Array of TDawnColor;

var
  Fpixels: TDawnPixels;
  data: Array of Cardinal;

begin
  //
  SetLength(data,FWidth*FHeight);
  Move(FPixels[0],data[0],SizeOf(Cardinal)*FWidth*FHeight);
  //
end;

Jedoch werden die Daten nachweislich nicht richtig übertragen. Wenn ich das ganze male kommt etwas schwares dabei raus mit ein paar bunten pünktchen dazwischen. Es müsste eigentlich eine einfarbige Fläche sein..

FPixels[0,0] oder FPixels statt FPixels[0] hab ich schon getestet, bringt aber nicht wirklich was...

Gruß
Neutral General

[Hawkeye219]

Hallo Michael,

ein dynamisches zweidimensionales Array belegt keinen zusammenhängenden Bereich im Speicher. Es ist vielmehr eine Liste von Zeigern, die auf Vektoren verweisen.

Gruß Hawkeye

[Neutral General]

Mit anderen Worten: Ich kanns mit Move vergessen...(?)

[marabu]

Hallo Michael,

du kannst Move() verwenden, aber für jeden Vektor einzeln. Vektoren sind die arrays auf der untersten Ebene - die keine weiteren subarrays enthalten.

Grüße vom marabu

[Neutral General]

Hi,

Also ich hab das jetzt so verstanden:

Delphi-Quellcode:

Move(FPixels[0],data[0],FWidth*4);
Move(FPixels[0,0],data[FWidth-1],FHeight*4);

Was aber auch nicht 100%ig funktioniert.. zuerst FPixels[0,0] hab ich auch schon probiert. Hab ich da noch einen Denkfehler drin?

[marabu]

Ich könnte mir sowas vorstellen:

Delphi-Quellcode:

begin
  SetLength(data, FWidth * FHeight);
  for i := Low(FPixels) to High(FPixels) do
    Move(FPixels[i, 0], data[i * FHeight], SizeOf(Cardinal) * FWidth);
end;

Jenachdem wie du das 2D-Array organisiert hast, musst du eventuell FHeight und FWidth vertauschen.