delphi constant record
type TProduct = record Product : string; Price : currency; end; const DAYS : array[0..6] of string = ( 'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat' ) ; CURSOR_MODE : array[boolean] of TCursor = ( crHourGlass, crSQLWait ) ; PRODUCTS : array[1..3] of TProduct = ( (Product : 'Clock'; Price : 20.99), (Product : 'Pencil'; Price : 15.75), (Product : 'Board'; Price : 42.96) ) ;
Source: www.thoughtco.com