1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var
  Matrix : array of array of Single;
...
setlength(Matrix,N,M);
...
bla(@Matrix);
...
procedure bla(Matrix : PSingle;N,M:LongWord);
var
  x,y : LongWord;
  PMatrix : PSingle;
  sum : Single;
begin
  PMatrix:=Matrix;
  for y := 0 to M-1 do begin
    for x := 0 to N-1 do begin
      sum:=sum+PMatrix^;
      inc(PMatrix);      
    end;
  end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

type
  TExample = array of array of Single;

function Example(a: TExample): Single;
var
  i: Integer;
  j: Integer;
begin
  Result := 0;
  for i := Low(a) to High(a) do
    for j := Low(a[i]) to High(a[i]) do
    begin
      Result := Result + a[i, j];
      a[i, j] := a[i, j] + 1;
    end;
end;

var
  Test: TExample;
  i, j: Integer;
  ExampleResult: Single;
begin
  SetLength(Test, 3, 4);
  for i := Low(Test) to High(Test) do
    for j := Low(Test[i]) to High(Test[i]) do
      Test[i, j] := i + j;
  ExampleResult := Example(Test);
  ShowMessage(FloatToStr(ExampleResult) + ', Test[0, 0] = ' + FloatToStr(Test[0, 0]));
end;					

1:
2:
3:
4:
5:
6:

ok := (x<= High(FMatrix)) and (y<=High(FMatrix[x]));
if ok then
  begin

  end
else Raise Exception.Create('Ungültiger Zugriff')					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TMatrix : array of array of Single;
  TArray2D : array of array of Single;
...
var
  Matrix : TMatrix;
  Array2D : TArray2D;
  PArray2D : ^TArray2D;
...
setlength(Matrix,10,10);
Matrix[5,5]:=123;
PArray2D:=@Matrix[0,0];
Showmessage(FloatToStr(PArray^[5,5]));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  Test: array of array of Single;
  i, j: Integer;
  ExampleResult: Single;
begin
  SetLength(Test, 3, 4);
  for i := Low(Test) to High(Test) do
    for j := Low(Test[i]) to High(Test[i]) do
      Test[i, j] := i + j;
  ExampleResult := Example(TExample(Test));
  ShowMessage(FloatToStr(ExampleResult) + ', Test[0, 0] = ' + FloatToStr(Test[0, 0]));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

type
  pRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = ARRAY[0..$effffff] OF TRGBTriple;
  TMyKomp=Class(TBitmap)
  published
  private
    function GetDasArray: pRGBTripleArray;
  published
     public
       Constructor CreatewithInfo(x,y:Integer);
     Published
       Property DasArray:pRGBTripleArray read GetDasArray;
  End;

implementation

{ TMyKomp }

constructor TMyKomp.CreatewithInfo(x, y: Integer);
begin
  inherited Create;
  PixelFormat := pf24Bit;
  width := x;
  height := y;
end;


function TMyKomp.GetDasArray: pRGBTripleArray;
begin
   Result := Scanline[0];
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

    for Y := 0 to bmp.Height -1 do
     begin
         pscanLine := bmp.Scanline[y];
         for x := 0 to bmp.Width -1 do
           begin
           pscanLine[x].rgbtBlue   := pscanLine[x].rgbtBlue XOR 255;
           pscanLine[x].rgbtGreen   := pscanLine[x].rgbtGreen XOR 255;
           pscanLine[x].rgbtRed   := pscanLine[x].rgbtRed XOR 255;
           end;
     end;