Delphi - How to assign data in a multidimensional array in a single command?

Question

I’m trying to do this but it’s not working:

Var
  MyArray: array[1..3] of array[1..3] of Ttime;
Begin
   MyArray:=( ( StrToTime('08:25'), StrToTime('08:25'), StrToTime('08:50') ),
              ( StrToTime('09:25'), StrToTime('08:25'), StrToTime('08:25') ),
              ( StrToTime('10:25'), StrToTime('08:25'), StrToTime('08:25') )
            );
end;

Answer 1

I found a reply in Soen concerning the question Pass the multidimensional array as a Parameter in Delphi

Converting to your case would look something like:

type
  TMatrix = array[1..3,1..3] of Ttime;

---

procedure  MakeMat(var c: TMatrix; nr, nc: integer; a: array of Ttime);
var
  i, j: integer;
begin
  //SetLength(c, nr, nc);

  for i := 0 to nr-1 do
    for j := 0 to nc-1 do
      c[i,j] := a[i*nc + j];
end;

---

Var
  MyArray: TMatrix;
Begin
  MakeMat(MyArray,3,3,[  StrToTime('08:25'), StrToTime('08:25'), StrToTime('08:50') ,
                         StrToTime('09:25'), StrToTime('08:25'), StrToTime('08:25') ,
                         StrToTime('10:25'), StrToTime('08:25'), StrToTime('08:25')
                      ]);

end;

Answer 2

I suggest the following:

var
  MyArray: array of array of TTime;
begin
  SetLength(MyArray, 3, 3);

  MyArray := [[StrToTime('08:25'), StrToTime('08:25'), StrToTime('08:50')],
              [StrToTime('09:25'), StrToTime('08:25'), StrToTime('08:25')],
              [StrToTime('10:25'), StrToTime('08:25'), StrToTime('08:25')]];

You can explore the intrinsic functions that can help in array manipulation, especially Insert and Delete: http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Delphi_Intrinsic_Routines http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Insert http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Delete

It would look something like this:

var
  MyArray: array of array of TTime;
begin
  SetLength(MyArray, 3, 3);

  Insert([[StrToTime('08:25'), StrToTime('08:25'), StrToTime('08:50')],
          [StrToTime('09:25'), StrToTime('08:25'), StrToTime('08:25')],
          [StrToTime('10:25'), StrToTime('08:25'), StrToTime('08:25')]], MyArray, 1);

More about array: http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Structured_Types_(Delphi)