Totale Pointer-Verwirrung

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