“Delphi Constant Record” Code-Antworten

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)
    ) ;