RISOLTO Caricare valori in una matrice Pascal

[petrusic]

Ciao a tutti.
Sto imparando e prendendo confidenza con l'ambiente di programmazione Lazarus+free Pascal. Quindi sono di nuovo sotto pressione per studiare sia il linguaggio che l'interfaccia.
Mi trovo in fase di scrittura di un programma dove devo mettere la seguente matrice:

procedure TForm1.VoMasPartChange(Sender: TObject);
type TbCoCas = array[0..1, 0..1] of Integer;
var
  tbCas: TbCoCas;
begin

end;

Fin qua è chiaro.
Ora però dovrei valorizzare i suoi elementi con costanti numeriche che mi serviranno come termini di controllo più avanti, nella procedura.
Pensavo di farlo perciò direttamente nella dichiarazione della variabile, ma non ho trovato nessun esempio del genere nella varietà di materiale disponibile sul web.
L'unica strada percorribile sembra che sia questa:

begin
    TbCas[0, 0]:= 101001000;
    TbCas[0, 1]:= 101001997;
    TbCas[1, 0]:= 101001990;
    TbCas[1, 1]:= 101001999;
...
end

Ma è mai possibile che non ci siano altre possibilità?

 

[fabio93]

Non è molto diverso da altri linguaggi:

type TbCoCas = array[0..1, 0..1] of Integer;
var
  tbCas: TbCoCas = ((101001000, 101001997),
                    (101001990, 101001999));
  i, j: integer;

{ stampa il contenuto dell'array }
begin
  for i := 0 to 1 do
    for j:= 0 to 1 do
      writeln('tbCas[', i,', ', j, '] = ', tbCas[i, j]);

  readln; { per non far chiudere il terminale }
end.

 

[petrusic]

Grazie fabio93, anche per il codice .