Totale Pointer-Verwirrung

[rowkajjh]

Zitat von Der Jan:

Zitat von rowkajjh:

Eigentlich müßte doch die Konvertierung char -> double problemlos sein, oder? ...
Häh?

Ne leider nicht. Nimm "Byte". Char ist im Gegensatz zu C kein Integer-Typ. Pascal ist halt ganz schön gewöhnungsbedürftig, wenn man von C/C++ kommt. Ging mir auch so

Naja, macht aber Spaß.

Einen hab ich noch. Ich bin jetzt ziemlich weit gekommen, bloß mit dem Indexzugriff klappt es noch nicht. Ich habe mal ein Beispielprogramm erstellt:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const width    = 4;
const height   = 4;
const mapsused = 4;

type TLayer   = array of double;    //Feld von doubles
type pTLayer  = ^TLayer;            //Zeiger auf eben jenes
type TMap     = array of pTLayer;   //Feld von Zeigern

var
  map   : TMap;
  i     : Integer;

   x,y     : Integer;
   srcmap  : pTLayer;
   srcline : pTLayer;
begin

  GetMem(map, mapsused*sizeof(TLayer));

  for i := 0 to mapsused-1 do
  begin
       GetMem(map[i], width*height*sizeof(double));
  end;

  srcmap  := map[0];
  for y := 0 to height-1 do
  begin

    srcline := srcmap;
    Inc(srcline, y*width);

    for x := 0 to width-1 do
    begin
      srcline^[x] := 1.0;     // <--- Hier krachts
    end;
  end;



  for i := 0 to mapsused-1 do
  begin
    FreeMem(map[i], width*height*sizeof(double));
  end;
  
  FreeMem(map, mapsused*sizeof(TLayer));

end.

Könnte mir bitte jemand den Knoten ausm Kopf nehmen? Danke!

[rowkajjh]

Ich schon wieder

Ich habs jetzt soweit:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const width    = 5;
const height   = 5;
const mapsused = 5;

type TLayer   = array of double;            //Feld von doubles
type TMap     = array of array of double;   //Feld von Zeigern

var
  map     : TMap;
  i       : Integer;
  x,y     : Integer;
  srcline : array of double;
begin

  SetLength(map, mapsused);

  for i := 0 to mapsused-1 do
  begin
    SetLength(map[i], width*height);
  end;

  for y := 0 to height-1 do
  begin
    srcline := map[0];   // <--- 'Incompatible types'
    for x := 0 to width-1 do
    begin
      map[0,y*width+x] := 1.0;
    end;
  end;

  for i := 0 to mapsused-1 do
  begin
    map[i] := nil;
  end;

  map := nil;

end.

Ich hätte jetzt nur noch gerne map[0,y*width+x] ersetzt, daß man nur noch srcline[x] schreiben muß. Wie ich es jetzt hier gemacht habe gehts nicht: 'Incompatible types'

Jemand noch eine Idee?

[mkinzler]

Zitat:

Ich hätte jetzt nur noch gerne map[0,y*width+x] ersetzt, daß man nur noch srcline[x] schreiben muß. Wie ich es jetzt hier gemacht habe gehts nicht: 'Incompatible types'

y*width+x ist vom Typ float, als Indices von Arrays sind aber nur Integer erlaubt, deshalb mu0t du Sicherstellen dass Wert im Index eine Integer ist z.B. durch map[0,Trunc(y*width+x)]

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