Statische Arrays mit type und Wertzuweisung?

[jbg]

Mit hilfe einer Funktion kannst du zumindest die Zeilenvektoren füllen:

Delphi-Quellcode:

procedure SetLineVec(var Matrix: TMatrix; Row: Integer; const Values: array of Integer);
var i: Integer;
begin
  for i := 0 to High(Values) do
    Matrix[Row, i] := Values[i];
end;


SetLineVec(Matrix, 0, [2, 2, 2, 2, 2]);
SetLineVec(Matrix, 1, [2, 1, 1, 1, 2]);
SetLineVec(Matrix, 2, [2, 1, 0, 1, 2]);
SetLineVec(Matrix, 3, [2, 1, 0, 1, 2]);
SetLineVec(Matrix, 4, [2, 1, 1, 1, 2]);
SetLineVec(Matrix, 5, [2, 2, 2, 2, 2]);