Delphi

Essa dica mostra como criar uma constante que seja um array de um record (tipo criado pelo próprio programador)

Type
  TMeuRecord = record
    Campo1 : integer;
    Campo2 : string;    
  end;

CONSTANTE : array[0..1] of TMeuRecord = ( (Campo1 : 1; 
                                           Campo2 : 'Valor1'),
 
                                           (Campo1 : 2;
                                            Campo2 : 'Valor2')
                                        );