Totale Pointer-Verwirrung

[rowkajjh]

Ich habs jetzt so gelöst:

Delphi-Quellcode:

Procedure TImgProc.Byte2double(outmap : integer; img : TBitmap);
var
   x,y     : Integer;
   line    : PByteArray;
   src     : pDouble;
begin
     if(img.PixelFormat <> pf8bit) then exit;

     for y := 0 to FHeight-1 do
     begin
          line    := img.ScanLine[y];
          src     := @FMap[outmap, FWidth*y];
          for x := 0 to FWidth-1 do
          begin
            src^ := line[x];
            Inc(src);
//            FMap[outmap, y*FWidth+x] := line[x];
          end;
     end;
end;

also mit src := @FMap[outmap, FWidth*y];
So richtig gefällt es mir nicht, aber geht erstmal.